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SEG 0001 | 


-~NLIST CNO 


IDENTIFICATION 


MAINDEC-11-DTMGA-C 


ed gl a PROGRAM GENERATOR 
NON-MEMORY MANAGEMENT VERSION 


JULY 1976 

DIAGNOSTIC GROUP 7 SYSTEMS RELIABILITY 
W. R. GREENE 7 C. E. HARPER 

DTUMA-C-D 


THIS SOF 1S FURN WHER CENSE FOR USE ONLY 
ON A SINGLE cro nay BE COPIED ONLY WITH 
THE I TON OF den C1 NOTICE. THIS 

, OR ANY OTHER OF, MAY NOT BE PRO- 
VIDED 1SE RADE, AVA © ANY OTHER PERSON 
EXCEPT FOR ONE WHO AGREES TO 


ee EO TO 
THE LICENSE. TERNS. Lomi | 


SOFTWARE SHALL 


AT Te INES REMAIN IN DEC. 


Ms deca IN THIS CT TO CHANGE 
a4 i AS A COMMITMENT 
BY DIGITAL. bor CORPORATI 


DEC ASSUMES NO 
SOF TWARE 


RESPONSIBILITY FOR USE OR yp eg 


ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
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MAINDEC-1 
OTNGAC.P1il REVISION HISTORY = 
-SBTTL REVISION HISTORY 
001 - IF _OF MM 


‘IFF 
JUL 76 DTMGA-C RELEASE 
MAY 76 ADDED THE “PATB™ PATTERN FORMAT. 
NAY 76 CORRECTED ANOTHER COMPILER BUG WITH THE “BREAK V" 
AND “BREAK VON > INSTRUCTIONS. —~ 


0 2 0-= 0 ppm a pe 


OD VOU EWU OBB GRE oho wt 


MAY 76 CHANGED SIGNED BRANCH INSTRUCTIONS TO UNSIGNED ON 
eTuttoneo GENERATED FOR ALL RELATIVE “IF™ 


MAY 76 CORRECTED COMPILER BUG WHICH OCCURRED WHEN AN OCTA 
OR DECIMAL ADDRESS WAS ENTERED ON AN 1/0 INSTRUCTION. 


APR 76 DTMGA-B RELEASE 

FEB 76 ADDED THE “WORD” INSTRUCTION. 

JAN 76 ADDED A TEST FOR THE CACHE MEMORY HIT/MISS REGISTER. 
IF FOUND, THE DEVICE ROUTINES’ TIME OUT VALUE 
WILL BE EFFECTIVELY MULTIPLIED BY 2. 


JAN 76 ei aiich eh IT WILL NOW 
TREATED SAME AS OTHER DEVICE ERRORS. IT 


DEC 7S ADDED ABILITY TO PROCESS VARIABLE LENGTH 
FILENAMES ON USER PROGRAMS. 
DEC 75 ADDED SECTIONS OF CODE THAT PERFORMS 
NOV 7S EQU eet THAT WERE REQUIRED FOR THE 
VERSION. 
DEC 7S BUS ADDRESSES PASSED TO DEVICE ROUTINES FOR NPR 


DEVICES WILL NOW BE TWO WORDS. THIS PROVIDES 
DEVICE oe NE COMPATIBILITY BETWEEN THE DIFFERENT 
VERSIONS OF MPG. 


= b= 6 0 0 & = 0-= = 6 -= B-< b—— b— & = B= F< B= B= § -= B= &— = P= F< BB Do H—-2 HB ~— HO = Bh -2 HH = Ho 


SSBVRRIEREBBEVRRPOVLS 


41 NOV 75 INITIAL VECTOR HOUSEKEEPING IS NOW PERFORMED BY 
| 14e MPG’S ONE TIME HOUSEKEEPING ROUTINE. 
14 NOV 75 ADDED THE “PATTERN” FORMAT TO THE ’FILL’ COMMAND. 
16 NOV 7S ADDED THE “FAST” OPTION TO THE /LIST COMMAND. 


NOV 75 RCC BSE TEST FOR ESTA U1 AAD ALTERED ALL Poe 
ACC ae ne FOR ouett pr at OMPATIBILITY. IF_AN LSI -11, 


ORITIES IN DEVICE ROUTINES WILL 
BESET TO'4 BREN THEY ARE LOADED. 


SPSS SSS OS SS SS SESE SESE SESH SESE SESE SESE SESE SE SESE SESS SESE DS SESE SESE SESE SESE OE OE Oe SESE OO et ates os es ee ee 
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DTMGAC.P11 REVISION HISTORY 
153 : NUV 75 REMOVED THE VALID DEVICE TABLE FROM MPG AND ADDED 
154 ; CODE THAT WILL LOAD IT FROM A SEPARATE FILE INTO 
135 : MPG’S AREA. 
157 : OCT 75 ODED CODE THAT TRANSFERS CONTROL TO A DEVICE ROUTINE 
158 : MMEDIATELY AFTER LOBDING IT FOR INITIAL HC'ISE- 
159 : pa bon AND TAILOR 
14 : CCT 75 CORRECTED THE BUG WITH THE “BREAK” INSTRUCTION. 
i63 : OCT 75 ADDED DISPLAY OF THE LOADED DEVICE ROUTINE’S 
te: ; FILENAME. 
158 : AUG 75 DTMGA-A INITIAL RELEASE 
16 LIFT 
168 ; JUL 76 DTMMA-B RELEASE 
170 : MAY 76 ADDED THE “PATB™ PATTERN FORMAT. 
172 : MAY 76 CORRECTED ANOTHER COMPILER BUG WITH THE “BREAK V™ 
173 : AND “BREAK V ON V" INSTRUCTIONS. 
175 : MAY 76 CHANGED SIGNED BRANCH INSTRUCTIONS TO UNSIGNED ON 
176 ; THE BINARY CODE GENERATED FOR ALL RELATIVE “IF” 
17 : INSTRUCTIONS. 
179 : MAY 76 CORRECTED COMPILER BUG WHICH OCCURRED WHEN AN OCTAL 
180 : OR DECIMAL ADDRESS WAS ENTERED ON AN I/0 INSTRUCTION. 
182 : APR 76 DTMMA-A INITIAL RELEASE 
183 ooo .ENDC 


ne a + ee eee 


“/EG:MIMIC” WILL GENERATE A VERSION 
CAPABLE OF RUNNING UNDER MIMIC. 


MAINDECSL1-DTMGA-C MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 3 SEG Oo0sS 
185 .SBTTL BUILD INFORMATION AND EQUATES 
18% 001 IE OF MM 
188 -THTLE MAINDEC-11-DTMGA-C MPG CONTROL ROUTINE 
199 -TITLE MAINDEC-11-DTMMA-B MPG CONTROL ROUTINE 
131 000 -ENDC 
193 oocsoo’ .CSECT MPG 
re -OSABL GBL 
19% 
197 001 IF DF MM 
198 "IFF 
133 :REVISION “C" 
201 sFILENAME OF “TMGACO.MPG" ON MPG/XXDP MEDIA 
203 IFT 
ot ;REVISION “B” 
206 sFILENAME OF “TMMABO.MPG" ON MPG/XXDP MEDIA 
208 co .ENDC 
510 5 SRKRELELELEE ESSE ELE LA LLL ELE LAA REL LE LAL LEE EL ALES LALELELE AFL REALE REL ERE 
| ei MACY11 
sts WITHOUT MEM MGMNT: DTMGA?, DTMGA?/CRF:SYM/DOC=DTMGA?.P11 
| et WITH MEM MGMNT: DTMMA? | DTMMA?/CRF : SYM/EQ: MM/DOC= oTncA?. Pll 
1 NOTES: “/EQ:NLIST™ W ss D 
| a UNSER iT bar cone in ety LIS INC’ 
| 
; e9 


DTMGA? . MPG/B: O+DTNGA? /E 
DTMMA? . MPG/B: O+DTMMA? /E 
FOR PAPER TAPE OUTPUT: 


PUNCH DTMGA?.MPG/FILE:ELEV 
PUNCH DTMMA?.MPG/FILE:ELEV 


; HELLA LELLLE LEELA ELLE LE LEAL SELLER ALE LE RLLELELELERAREEAAE EER ALLERE 


SERRE ORS REN eS 


NOTE: any WHOSE COMMENT T FIELD BEGINS 
: MILL u Hy Rear es HE TWO VERSIONS 


THE MEMORY MANAGEMENT VERSION, THEIR 


BG 








BUILD INFORMATION AND EQUATES 
CONTENTS WILL BE THE HIGH 16 BITS OF 22 BIT 


RAINDEC-11-DTNGA-C MPG CONTROL ROUTINE MACYL1 27(732) 24-SEP-76 13:54 PAGE 3-1 SEG 0006 
cus . 4 E NON-MEMORY MANAGEMENT 
ae : ves 10h, fei aeRtENtS” WILL BE 16 BIT RBSOLUTE 
24S 
e448 
ou? 900000 R0= %0 
24g 000001 Riz %1 
243 oo0o002 = %2 
250 000003 R3= %3 
251 000004 R4= “4 
ose 0000S RS= “S 
253 OO0006 R6= %b 
254 090097 R7= “7 
ess 009006 SP= “ 
ee 000007 PC= %7 
o58 001200 STACK= 1200 
260 001 IF DF MM 
261 MMMRO= 177572 ;MEMORY MANAGEMENT EQUATES 
P62 002 .IF OF MIMIC & UMTEST 
263 _IFF 
264 MMMRI= 177574 
265 IFT 
e665 MMMRI= S74 
267 001 . ENDC 
268 MMMR2= 177576 
269 090 .ENDC 
270 901 [IF OF MIMIC & UMTEST 
271 _IFF 
272 172516 MMMR3= 172516 
273 IFT 
274 MMMR3= 576 
275 .ENDC 
orb 001 LIF OF MM 

278 KPARO= 1 349 :KERNEL INST SPACE ADR REG’S 
279 KPARI= 172342 
| Bag KPAR2= 172344 
| 281 KPAR3= 172346 
| Be KPARY= 172350 
eg KPARS= 172352 
| 284 KPARS= 172254 
ee KPAR7= 172356 
i 
i PB? 172309 ;KERNEL INST SPACE DESCR. REG'S 
1 288 KPDRI= 1 
| 9 KPDR2= 172304 
| 290 KPOR3= 172306 
2B oe: teal 
535 KPDRe= | 175314 
en KPDOR7= 172316 
296 UPARO= 177640 ;USER INST SPACE ADR REG’S 
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-IF_DF MIMIC & UMTEST 
 IFF 


UBMAPO= 
UBMAPI= 1 
UBMAPe= 1mesie 
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;USER INST SPACE DESCR. REG’S 


;UNIBUS NAP REGISTERS 


;UNIBUS MAP REGISTERS 


;PAGE SELECT EQUATES 


;MISC. EQUATES 









SEG 0007 





ae ex 


DTNGAC.P 


scanbitssacoiniainheamiastinaentsnocert 
nGioonees | 


SEece cE coe ceeeececeEcE 


OS312e4% O40S04 037477 CLOCZ: .ASCII ’TVDA??’ ipoPceT FILENAME IN AS 


MPG CONTROL ROUTINE MACYi1 27(732) c4-SEP-76 13:54 PAGE 4 
EXEC INTERFACE ADDRESS TABLE 





SEG 0008 









-SBTTL EXEC INTERFACE ADDRESS TABLE 


Cll 
RESET TO THE ’VALID DEVICES’ FILE 


Te ol XXXX ; ABSOLUTE sees te ate OF ROUTINES 
Bue ORD XXXX sony # —_—* HICH ARE 
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388 .SBTTL MPG CONTROL ROUTINE INITIAL HOUSEKEEPING 
384 
385 sENTRY POINT FROM STAND ALONE EXEC 
387 . 000064" O004S67 043476 START: JSR RS, CLTHKP :D0 1 TIME HOUSEKEEPING 
383 000070’ 010700 RST1: MOV PC, RO SET UP CNTRL ROUT TBL ADR 
33 000072" 062700 034124 R00 achTBL- 480 ort we pace’s 
333 rented Baers cares: 10S: CLR RO oh ‘ ik TBL ENTRY 
393 000104’ 005302 DEC Re PROG COUNT 
334 000105; 901375 SNE 10s :DONE ALL ENTRIES? (Y,N-10S) 
00110" O1 001340 001330 MOV PAREA, CFMST ‘INITIALIZE START OF FREE MEM ADR 
2 000116’ 016767 001330 001324 FF uGRMEND, CFMEND INIT END OF FREE MEMORY ADR 
CPAREA, RO GET START OF USR PROG AREA 
399 ADD #577, RO "ALLOW FOR 12K WORDS 
490 CMP RO BO, CRPEND ; ARE THERE MORE THAN 12K WOS? 
1 BHIS t >Y,N-RSTe 
4g MOV RO, CFMEND :STORE END OF 12K AREA ADR 
403 CLR MAPMAP jRESET UNIBUS MAP USAGE 
404 CLR MAPMAP+2 BIT MAP 
40S oco - ENDC 
406 009124’ 012706 001200 RST2: MOV aSTACK.R6 :SET UP STACK POINTER 
407 000130’ oHe767 177400 034056 BIC ~ “fi77400, CSYSFH ? INITIALIZE SYSTEM FLGWD 
409 MOV 8KPARO, RO ;SET UP ADR’S OF KERNEL MODE’S 
410 MOV RI MM 
4il MOV #8., igeT UP REGISTER. COUNT 
HE ss: Bape 
ata NOVY RBOREDN’ (R14 eb Sei BECE oDR 
415 ADD #200, R3 ADR TO NXT MEM PAGE 
416 DEC DOM ALL oT RECT STERS? 
417 BNE S$ :Y N-SS 
418 MOV SIOPAGE, -(RO) *SET PAR 7 TO THE I/O PAGE 
419 BIT sCPU4O, CSYSFId IS THIS AN 11/40? 
420 10$ :N, Y-10$ 
421 MOV MR3VAL , a&MMMR3 ‘INIT MMMR3 IF UBMAP 8 22 BITS 
Wee 10$: MOV #1001, 2eMMMRO ‘ENABLE MEM MANAGEMENT 
Hed ; NOW RUNNING UNDER MEMORY MANAGEMENT 
426 BIT SUNIMAP , CSYSFW ;ARE WE USING THE UNIBUS MAP? 
427 BEQ 15$ :Y N 
48 MOV : ‘POIN AT FIRST MAP REG 
429 CLR (RO)+ ‘INITIALIZE REGS 0 8 1 TO 
430 CLR (RO)+ “FIRST 8K WOS OF MEM USED 
i «431 NOV #20000, (RO)+ *BY EXEC 
| 433 CLR (RO)+ 
433 ADD #16. ,RO ;BYPASS REGS 2 THRU S 
' 434 MOV PC.RI GET ADR OF SHARED CODE PAGE 
435 ADD # 
| = 436 1, ( ;STORE IT IN MAP REG 6 
437 (RO) 
| 
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1S$: 


20s: 


308: 


208: 


30S: 
40$: 


SOS: 


USRINT: 
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SEQ 0010 
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;SET UP ADR OF CNTRL ROUT TBL 






»RO 





PC.RO 
#CRTBL-. 
MM 








#MAXPRG, R1 ;HOUSEKEEP PROG FLGWDS IN CASE 
(RO)+ WE'RE DOING A RSTe RESTART 
BRETIVEsuT4LOTeCTPRIO*SETOED, a-(RO) 
Ri 
20$ 

7 
#177777, (RO) ;END OF THE TBL? { 
40$ :N. Y-40$ i 
RO) SENTRY EMPTY? yer 


ARG ’S BASE ADR IN KERNEL’S PAR 6- 
1 ei rscrnzoer ib, asPECONS 









(RO)+ :POINT TO NXT TBL ENTRY 

2 GO CK NXT ENTRY 

PC. RO *SET UP ADR OF INTERRUPT 
SVECTBL+4-. , RO “INTERCEPT VECTOR TABLE 

#128. Rl :# OF ENTRIES 

(RO)4 “CLEAR THIS ENTRY 

#4, RO sPOINT TO NEXT ENTRY 
Rl s DONE ALL ENTRIES? 
CTFLGW, RO ;GET ADR OF CONSOLE TERM FLGWD 
(RO)+ *CLEAR THE FLGWD AND WRITE 
(RO) : COUNT 
CRFLGW *HSKP CNTRL ROUT FLGWD 

#3, CMGCNT ‘INITIALIZE TO NON-INT MODE 
CASMSG+3, CASMSG+2 
RS, CSDNRC ;SHIFT ANY PROGS DOWN & RECOMPILE 
#-1, CSCFWD ;INIT TO NO PROG # 












CMAP ;GO DISP MEM MAP 
USER INTERRUPT (tC) ENTRY POINT 4 
(SP)+,RO GET STACK ADR AT TIME OF INT 

RS, BINASC “CONVERT IT TO ASCII & 

CINTSP-. :PUT IN MSG 

12. (SP) -RO GET PC VALUE AT INTERRUPT 

RS. BINASC i CONVERT IT TO ASCII & 
aGiitrc-. *PUT IN CONSOLE MSG 

aK ;SET UP ADR OF KERNEL WORK PAGES 





;SAVE WORK PAGES’ BASE ADRS 








a PLL 


£ELL 
BESERE 6 


riots ietat tats 
= 


2 


QUITO 
AY) 


b= bs 00 hs pe be pe 
OU fWwHO 
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7 
112767 


10S: 


007570 
007556 
0075Se 
033670 


000074 
006763 


20S: 
30S: 


#"KN, CINTMD 
#"RL.CINTMD+2 
#140000, 20. (SP) 


1 
#"US, CINTMD 
#"ER, CINTMD+2 


CPGCPT 
20$ 


CPGCPE RY 
PC, CPNASC 


R1.CINTPN 
#40, CINTPN+2 
30$° 

#"MP, CINTPN 
8’G, CINTPN+2 


#CNTRLO, CSYSFW 
RSC TYPE 


cin TMG-. 
CMGCNT 
rt. CASMSG+2 


SEO 0011 | 


13:54 PAGE S-e 


STORE “KNRL” AS 
:MERE He IN KERNEL MODE? 
-STORE “USER” AS 
‘THE MODE 
;USER_ PROG IN CONTROL? 
tt T CURR CNTRL ROUT TBL ENTRY ADR 
; CONVERT IT TO ASCII PROG # 
PROG # TO MSG 
iSET THIRD BYTE TO A SPACE 
ioe UP "MPG" I.D. 
RESET SUPPRESS TYPING FLAG 
ISSUE PC & SP VALUES MSG 


;SET UP CNT FOR “I®” 
:PROMPTING MS 
‘DROP INTO COMMAND DECODER 
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eo ee 
Wu 


HEGHAS ORATOR oe Non Pos 
te 


ps 
N 


RRS Ae Si a ae Al ita ae EEE 
REE PE THERESE 


=I 
tt 


ro 


be bs 


MPG CONTROL ROUTINE 


MACY11 27(732) 


COMMAND DECODE & DISPATCHER ROUTINE 
-SBTTL COMMAND DECODE & DISPATCHER ROUTINE 
aiaiaieielelelelaisiaieiseleleleheleielaieieileieiaiaisieieleleieieisisiolleleleiaisisieieieeleleieitieieieieioieieleleialeieie 


010000 033636 
00S64e 


033610 


aie 
8 ae 


Pewee ee wees ee we ee ee ee 


CFCMND: 


ee he ie eer s 


CNCMND: MOV 


1$: 


CMGCNT: 


CGORUN: 


CKCMND: 


10S: 


JSR 


si 


ae 
wes 
-4 


| 


+3853 
3 


See geees 


RST BE VAL 


E th T SSES F obo 

Prac es me Ob ANB ADDS 3, RES AN 
WILE BE CHECKED TO INSURE THAT ONE Atlas ENTERED. 

s LEKELERLKLE LSE HELLA LRELERELKRE ELLE KS REL KELEL FEHR E SLL SL REE EL EEL EEE ELSES 


#CNTRLO, CSYSFW 
RS, CTYPE 


4 
CECMSG-. 
a RO 


RO, CERRET 
#CNTRLO, CSYSFW 
CSYSFW 


24-SEP-76 13:54 PAGE 6 


THIS ROUTINE REQUESTS THE ENTRY OF USER COMMANDS THROUGH THE 
hgh naa ne A A Se te THE COMMAND 


a Ore ee ene 
THE corner. THE COMMAND DATA 


;RESET SUPPRESS TYPING FLG 
;ISSUE "ENTER CMND’ MSG 


INTIAL RETURN ADR FOR 
;ERROR ROUTINE 


;RESET SUPPRESS TYPING FLG 
:DOING A CONS REQ? 


‘N Y=] 
“CHECK FOR STACK ERROR 
;Y,N-1$ 


;RE-INITIALIZE STACK PNTR 
ISSUE “*" W/O TRAILING CR/LF 


; ISSUE KEYBOARD READ 


;SCAN FOR FIRST WORD OF CMND 
; a a TROL 

sANY DATA ENTERED ON THE CMND? 
*CONSOLE REQ BEING PROCESSED? 


:N, Y= 
-GO 15° PROGRAM DI DISPATCHER 

*RESET CT REQ BEING PROC FLAG 
*RESTORE PROMPTING MSG TO "x" 


; SET 


UP ADR OF KERNEL WORK PAGES 
;RELOAD ORI 


GINAL VALUES 


& 
PASS FLAG 


SEO 0012 





ww 
eos 





te 
£06 
s.- 2 


rd deat ad: nh 


uw 
wo 
- 


BERR RERRE Sse RRL ON 


Sees toa aan 


COOOrrorad 
a ay ae a a 
WONOU CWO 


SEU ERRES 


pei MPG CONTROL ROUTINE MACY11 27(732) 


COMMAND DECODE & DISPATCHER ROUTINE 
01e70S 000007 MOV 
16203 001024 20s: MOV 
10501 30$: MOV 
710 TST 
4 BMI 
12701 000002 MOV 
MOV 
160104 SUB 
le2e71e 000377 40S: CMPB 
001013 BNE 
ooocde CMPB 
001403 BEQ 
005305 DEC 
10$7ee ae 
oos7i0 sos: Tet 
100045 BPL 
042710 i00000 BIC 
000744 BR 
112246 60S: MOVB 
000316 SWAB 
112216 MOVB 
005301 703: DEC 
lee2e3 CMPB 
001405 BEQ 
005710 TST 
100401 BMI 
060402 ADD 
06010e 80S. ADD 
005726 TST 
000735 BR 
005701 30S: TST 
001365 BNE 
012604 MOV 
032704 010000 BIT 
001404 BEQ 
OO4S67 012576 JSR 
005701 TST 
001020 BNE 
lee713 000040 9S$: CMPB 
001415 BEQ 
122713 O000S4 CMPB 
ooi4ie BEQ 
lee7i3 000015 CMPB 
aes BEQ 
1e2713 000012 CMPB 
001404 BEQ 
poet? 005270 100$: JSR 
lie - WORD 
005702 . WORD 
005767 033250 105$: TST 
100007 BPL 
040000 BIT 
1 BEQ 
7 005244 CRSCMD: JSR 
000002 - WORD 
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T COMPAR TT fa 
GET Bata woR® Strat Ab 
CNT to “WORK CNT REG 
EUS] PASS F FLAG SET? 


-SET WORK CNT TO 2 
‘SAVE COMPARE CNT -2 


;IS ENTRY’S CODE BYTE ALL 1’S 
:¥ N-60$ 
j THIS Is LAST GROUP OF CMND’S? 
tDECR COMPARE CNT BY 1 

0 COMPARE T 


G0 DO Nex XT CMND GROUP 
; THIS THE FIRST PASS? 

N-100$ 
RESET FIRST PASS FLAG 
DO SECOND PASS WITH 2 CHAR COMPARES 
‘SAVE FIRST CODE BYTE 
:SAVE SECOND CODE BYTE 


;DECR WORK COMPARE CNT BY 1 
j GHND TBL CHAR = DATA WORD CHAR? 


-90$ 
Hats PASS FLAG SET? 


?Y N-70S 
ioe THIS CMND’S SAVED CODE BYTES 
3 GRIND POSSIBLY HAVE IMBEDDED PROG #? 


:Y N-95$ 
Xs CHECK If ‘, 1s INCLUDED 
sHAS THERE A 


:N, Y-105$ 
NEXT CHAR AFTER CMND I.D. A SPACE, 
:COMMA, CR, OR LF? 

:N, Y-105$ 


;GO_ REPORT INV CMND ERROR 
;RETURN AT LABEL “CNCMND” 


s CONSOLE REQ BEING PROCESSED? 
THIS A RESTRICTED CMND? 

*¥ N-CNCTU 

‘ISSUE "RESTRICTED CMND’ MSG 





MAINDEC-11-DTMGA-C 
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b+ = & +b B= G+ B= = b= = hb pb f— bf Fe pe 
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ssssssssssssssssssss 
SSRERBRIREE THORENS 


: 


020000 
007216 
00S220 


ooo0e0 


000556 


177760 
000016 


000522 
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CNCTU: 


107$: 


CBASEe2: 


110$: 


CBASE1: 


SSRSSSSSSSSSESEESES 





MACY11 27(732) 24-SEP-76 13:54 PAGE 6-2 SEQ 0014 
OMMAND DECODE & DISPATCHER ROUTINE 


CERMO3-. 
#20000, RH THIS, HNO REQUIRE OPERANDS? 
SCF MD 6 THERE AT LEAST ONE OPERAND? 
RS, CTYPE REPORT "NO OPERAND” ERROR 
ONE RETURNS AT LABEL “CNCMND” 
RS ;COMPUTE DISPLACEMENT INTO 
PC?RS :CMND ROUT ADR TBL 
#CRATBL-. ,RS 
(RS). RS GET REL ADR OF CMND ROUT 
PC, RS "MAKE IT ABSOLUTE 
RS; CREADR “STORE CMND ROUT ADR AT STD LOC 
Mos sTHIS CHND USE A COM PROC ROUTINE? 
(RS) ao. DIRECTLY TO THIS CMND’S ROUTINE 
RY ‘COMPUTE DISPLACEMENT INTO COM 
#177760, ,R4 “PROC ROUT ADR TBL 
aCPRTBL-. Ra 
(RY) ‘GET REL ADR OF COM PROC ROUT 
PC, Rae "MAKE IT ABSOLUTE 
R4’ CRIADR ‘STORE THIS ADR AT STD LOC 
(R4) GO TO CMND’S COM PROC ROUTINE 


;COMMON PROCESSING ROUTINES ADDRESS TABLE 
CPATBL: . 


CCFMT1-CBASE1 


CCFMT4-CBASE 1 
;COMMAND ROUTINES ADDRESS TABLE 
CRATBL: . 


CDISPL-CBASE2 s DISPLAY CMND 
CASSIG-CBASE2 * ASSIGN 
T-CBASE2 : DELETE 
CMCDIF-CBASE2 ;MODIFY 
CREPOR-CBASE2 ;REP 
Ten-epRees OCH 
/P 
foceaseS” CONT 
CFILL-CBASE2 sFILL 
CSAVE-CBASE2 : /SAVE 
CSTOP-CBASE2 > STOP 
CBOC-CBASE2 7B 
CROM-CSASE2 ;ROM 
CRUN-CBASE2 ;RUN 
CWRM- ; WRM 
CMAF-CBASE ; MM 
aly A ye 
Sere Conees ; SUB 
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CHER ROUTINE 






rn CCDB-CBASE2 ;COB 

WO CCBO-CBASE ;CBD 
CKILL-CBASEe sKILL 

HORe C -CBASE2 ; “DELETE 
CL an SEe 37 IST 
CZERO-CBASEe ; 

. CBOOT-CBASEe ;/BOOT 

-IF_DF MM 

-WORD CSHIFT-CBASEe ; SHIFT 

. ne CUBMAP-CBASE2 ; UBMAP 


;VALIO COMMAND TABLE 
;FORMAT OF CODE BYTES 
;FIRST CODE BYTE: 


; BITS O THRU 3 = DISPLACEMENT INTO COM PROC ROUT ADR TBL 
; BITY=s1 = CNND MAY CONTAIN IMBEDDED PROG # (OPSW) 
; BITS =] = CMND DOES NOT REQUIRE OPERANDS 

; BIT&=1 = CMND RESTRICTED DURING USER INTERRUPT 
; BIT7 21 = CMND DOES NOT USE COM PROC ROUT 





;SECOND CODE BYTE: 
; BITS O THRU & = DISPLACEMENT INTO CMND ROUT ADR TBL 


OSO0123 CMOTBL: .ASCII <00><00>’DISPLAY’ ;7 CHARACTER CMNDS 
-ASCII <200><«S6>’ DELETE’ 
-BYTE 377 
-ASCII <04)<02>’ ASSIGN’ 36 CHARACTER CMNDS 


-ASCII <100><04> DELETE’ 
-ASCIIT <100><06>’MODIFY’ 
-ASCII <00><10>’REPORT’ 

-ASCIT «104><14)" FETCH’ 


-BYTE 9377 

-ASCII ¢100><12>° ENTER’ 35 CHARACTER CMNDS 
-ASCII <240><60>"/LIST’ 

-ASCII <00><24>’ /SAVE’ 

-ASCII <240><62>’/ZERO’ 

-ASCII <240><64>" /B00T’ 


ee ee Se ee 
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730 001 iF OF MM 
31 ASCH (100) (66> SHIFT’ 

732 "ASCII «<100)<70>UBMAP’ 

7 ooze’ 577 BYTE. 377 

ce Ooi see" oo7bo0 047503 os2116 ae «00> «16> CONT; :4 CHARACTER CMNDS 

737 rakes 31 og 050117 053523 Beet (220) <22) * OPSW’ 

738 OO1344’ 013000 OS2ele3 050117 -ASCIT <00><26)"STOP’ 

733 O01 Se" O44S13 046114 ASCII £00) «S¥) KILL 

741 001361’ 041517 "ASCII <02><30>"B0C’ 53 CHARACTER CMNDS 

pas Spt see> oisoes pubiee OU TE Beet? (BS) <ao> Bowe 

743 001373" O46, 051034 047125 ASCH (46) <34> ’ RUN’ 

744 001400" 017002 051127 115 "ASCII 6 <O2>< 36) "WRM’ 

745 001405’ 200 O40444 042104 ASCII <«200><44 ADD’ 

Pas Sptute» Oeste Bares ow iod “PRETE  {SBb) cope eee 

~ Coley" o2se00 041103 104 ASC <200) «52> CBD" 

ra tates: Gig Bees SE BAB 8 CHRACTER cos 

752 001442’ 377 “BYTE 377 ; TABLE TERMINATOR 

i 001444’ EVEN 

755 

756 sCONTROL ROUTINE CONSTANTS AND WORK AREAS 

758 

7539 o01444’ or0000 CRFLGW: .WORD 0 CONTROL ROUTINE FLAGWORD 
760 020000 CVLFLG= 20000 

761 040000 CFTCHF= 49000 

be 100000 CDOFP= 100000 

7&4 001 IF NOF MM 

765 001446" se CVMST: sal 

767 001446" 000000 CFMST: WORD  XXXX :#;START OF FREE MEMORY ADR 
768 001 IF NOF MM 

75, COINSO" an ma, 

771 001450’ 000000 CFMEND: :WORD  XXXX s#;END OF FREE MEMORY ADR 
772 001452" 000000 CRMEND: - WORD XXXX :%#:END OF REAL MEMORY 

773 4001454" 000000 CPAREA: : XXXX :#:START ADR OF USER PROGRAM AREA 
774 l LIF OF MM 

775 CVNST: .WORD  PYCONS 

776 CVMEND: :WORD PYCONS+24574. 

oe 000 ENDC 

779 001456’ COD000 CURCTE: .WORD 0 ADR OF CURRENT CNTRL ROUT TBL ENTRY 
780 001460’ 00 CURPTA: - WORD e ADR OF CURRENT PROGRAM TABLE 
782 CURPTH: “toe 0 :#;HIGH 16 BITS OF CUR PROG TBL ADR 
783 000 “ENOC 

785 001462’ 001464" CPNTR: .WORD CCMDRD ;CURRENT CMND RD DATA POINTER 
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095 


MPG CONTROL ROUTINE 
OMMAND DECODE 8 DISPATCHER ROUTINE 


Ole 


044120 047101 


CCMDRD: .BLK 
.BYT 


COSTAD: .WORD 
CDOCNT: .WORD 


CERRET: .WORD 
CRIADR: .WORD 
CREADR: .WORD 
XXXX= 0 
CIOALT= 256. 
CWA: . BLKW 


COREND: . 
CMCDVN: . 


COFNAM: . 


MRSVAL: . 
MAPMAP: . 


PATCH: 
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110 ;CONTROL ROUTINE CONS TERM READIN AREA 
015,012 
0 ;START ADR OF WORD IN CMND DATA 
0 ;NUMBER OF CHARS IN WORD FOUND 
0 ;PRESTORED RETURN ADR FOR ERROR ROUT 
0 ;ADR OF COM PROC ROUT FOR CURR CMND 
0 SADR OF CMND ROUTINE FOR CURR CMND 
;DATA THAT WILL BE TAILORED BY MPG 
PROG 1/0 AREA LENGTH DEFINITION 
3 ;3 WORD WORK AREA 
0 ;END OF DEVICE ROUTINE ADR 
10. :MODEL CODE & DEV #’S STORAGE AREA 
tacos ;DEFAULT PROGRAM NAME 
0 ;MMMR3 VALUE - SET BY 1 TIME HSKP 
0 ;BIT MAP FOR UNIBUS_MAP 
; 28 2S 
3 29 26 23 
0 S REGISTER USAGE (REGS 30 -. 7) 
1. 6h i 
: no aw & 6& 
; @ IS 6% i W 
40. ;##eeeEE PATCH AREA eeeEEEH 






SEG 0017 
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DTNGAC.P11 


001710’ 


001714" 


MPG CONTROL ROUTINE 


MACY11 27(732) 


COMMON PROCESSING ROUTINES FOR COMMANDS 
-SBTTL COMMON PROCESSING ROUTINES FOR COMMANDS 


001 
000 


006312 


; HHH 


Seer ee ee weer eee ee anaes 


. DF MM 
: SHIFT 
- ENDC 


NG COMMANDS 


MM 
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m WS ROU PROVIDES yeti PROCESSING AND CHECKS FOR 
He THE FIRST OPERAND: 


WHICH HAVE A PROGRAM NUMBER 


C 
/SAVE 
vi 
(CCFMTY) 
LL 


UPON BRANCH TO CMND ROUTINE: 


CURRENT PROG TABLE ADR 
CURRENT CONTROL ROUT TBL ENTRY ADR 


ALSO PRESENT ARE END OF COMMAND CHECKS WHICH MAY BE 
USED BY ALL COMMANDS 


: R3 = 
; RY = 


retry 
CCFMT4: TST 
BPL 

JMP 

CCFMT1: JSR 


CCFMTJ: 
CCFPDE: JSR 


CSCFWD 
CCFMT1 
CGORUN 


CTYPE 
CERMOS-. 


; # PRESENT? 
*N. Y=CCFMT1 

:GO INITIATE PROG EXECUTION 

GO VALIDATE PROG # IN CMND DATA 
;MAP PAR’S TO USER’S PROG AREA 

;SET UP ADR OF ENTER CMND ROUT 

;IS THIS THE ENTER CMND? 

3N, Y-CCFMTJ 

; PROG T FOR THIS 8? 

:GO TO ROUTINE FOR THIS CMND 

:GO REPORT PROG DOES NOT EXIST ERROR 


; COMMON COMMAND RETURN POINTS 


CCFMTA: TST 


KEEN: Tor 


RS, CSCN 


eens 7 IN CMNO? 


RO ARG TN" CHND? 


*Y N=CCF 
GO SCAN Ret 


SEQ 0018 





S382 O0200e 


MAINDEC-11-DTNGA-C MPG CONTROL ROLITINE MACYL1 27(732) 
DTMGAC.P11 COMMON PROCESSING ROUTINES FCR COMMANDS 
880 OC1774" GOYSE? O04224 JSR RS, CTYPE 
881 902000’ 000102 WORD 102 


* OO4EE! “WORD  CERMOG-. 


24-SEP-76 


13:54 PAGE 7-1 


;G0 REPORT UNNECESSARY CPERAND ERROR 


—— me ee a eee i ee 


SEG 0019 
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DTNGAC.Pil COMMON PROCESSING POUTINES FOR COMMANDS 
‘apopieaiataaadaaa 


THIS ROUTINE PROVIDES COMMON PROCESSING FOR THE FOLLOWING COMMANDS 
WHICH HAVE A WORD ADDRESS IN OCTAL AS THE FIRST OPERAND: 


BOC 
RDM 
WRM 














001 .IF_OF MM 
; CONTAINS CONVERTED BINARY WORD UPON BRANCH TO CMND ROUTINE 
; ROB ae CONVERTED BINARY WORDS UPON BRANCH TO CMND ROUTINE 


BOER TERR SO URR EOE O RESO 





000 
eiritiii te) 
002004" 004567 906224 CCFMT2: JSR RS, CSCNBS SCAN OPERAND & CONVERT TO BINARY 
002010’ 004567 011330 TSR RS; CKODAD GO CHECK FOR ODD ADR 
002014’ 910004 MOV RO; RY SAVE 16 BIT ADR IN RY 
001 _IF DF MM 
te NOV R2,R3 SAVE HIGH 6 BITS IN R3 
| 002016" 090746 BR CCFMTJ GO TO ROUTINE FOR THIS CMND 
| 910 
a 3 ;  EKEFHERAEE 
/ 3 THIS ROUTINE PROVIDES COMMON PROCESSING FOR THE FOLLOWING 
| 318 ; COMMANDS WHICH HAVE AN ASCII WORD AS THE FIRST OPERAND: 
' gig ASSIGN 
| 17 ; FETCH 
| 918 : FILL 
| 919 ; 
ost ; EERRRELESE 
G22 002020’ O04SE7 006176 CCFMT3: JSR RS, CSCN sSCAN FIRST OPERAND 
322 002024" 005702 TST a sANOT OTHER OP OPERAND PRESENT? 
| Gs Weare netted 004170 CN2OER: bia RS. CTYPE REPORT NO Jono OPERAND ERROR 
926 002034’ OD004 -WORD O42 
$27 002036" OO4E43 “WORD  CERMOB-. 


MAINDEC-11-DTMGA-C_— MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 8 SEG 0021 
DTNGAC.P11 ENTER, DELETE, & MODIFY COMMAND ROUTINES . 


002062’ 004567 004136 CENTPA: 5k RS, CTYPE ; ISSUE ’ASGN DEV’ MSG 
000 NOC 


002066’ 000420 ‘WORD 420 
002070’ 695443 “WORD  CADMSG-. 


929 .SBTTL ENTER, DELETE, 8 MODIFY COMMAND ROUTINES 
931 
932 : KEELE KARR EK RR ERERES 
933 : x % 
934 : * ENTER COMMAND x 
935 ‘ & * 
936 : ELELELS HHL KARE REELS 
a3 
939 002040’ 042767 O40000 177376 CENTER: BIC SCF TCHF , CRFLGW sRESET THE FETCH FLAG 
940 002046’ 010700 MOV PC, RO *SET ADR OF PROG’S NAME TO 
$41 002050" 062700 177574 ADD  —_ sCDFNAM-. , RO ; THE DEF pul NAME 
842 002054” CLR RS RESET “SAVE” FLAG 
943 002056’ 000167 o02440 IMP CSVCOM GO PROCESS PROG NAME 
Se ca ie 
O46 CENTPA: JSR RS, CTYPE ASK FOR PROG AREA ADR 
947 .WORD 420 
948 “WORD ADRREQ- 
$49 “WORD 17. 
950 ISR RS. SCTRD s ISSUE READ FOR THE REPLY 
91 .WORD  CCMORD-. 
Qg5 "WORD 71. 
953 MOV PC’ RO ;SET COMMON ERROR RET ADR 
954 ADD #CENTPA-. ,RO TO ISSUE OF ’PROG AREA ADR’ MSG 
955 MOV RO, CERRET 
| 56 qs (Ra) ; PROG ALREADY EXIST IN THIS SLOT? 
958 JSR PC, MAPHKP soy 3 DEALLOCATE UNIBUS MAP RESS 
953 CLR *RESET PROG’S ADR IN SLOT TBL 
860 TST CRTEXT(RY) WAS IT A FIXED 
961 BMI : Yel 
962 JSR c :SHIFT DOWN MPG CONTROLLED PROGS 
| 63 1$ CLR CRTEXT (RY) : SLOT’S ION 
| 964 2 CLR “RESET PROG AREA AOR 
965 JSR C *SCAN FOR THE REPLY 
| EB BIT ND, R2 ‘WAS ANY DATA ENTERED? 
| 967 :Y_ N-CENPAA 
| 8 ISR ASOCBN :CONVERT THE REPLY TO BINARY 
| $70 JSR PC, CKPGAD GO CK FOR VALID PROG ADR 
[ Gy MOV R2, CENADR “SAVE HI 16 BITS OF ADR 
| 972 CMP Re, HIMPGP :ADR WITHIN MPG CONTROLLED PROGS? 
| §73 BHIS :Y N-3$ 
| 974 IMP SHPGE2 ‘ISSUE "PROG AREA IN USE’ ERR MSG 
| 975 3$ MOV R2,R1 >PROG ADR TO S/R’S REG 
| 976 JSR PC. CKF3PG *CK IF AREA IS OCCUPIED 
| §77 TST sHAS A AREA OCCUPIED? 
| 978 BEG CENTPA TPA 
373 CENPAA: JSR RS, CTYPE + NeSuE "ASGN DEV:’ MSG 
|B] 
982 
983 
| 364 
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98S 02072’ 000013 .WORD 11. 
986 » 004577 175730 JSR RS. ACTRD s ISSUE RD FOR REPLY 
987 002100’ 177364 -WORD  CCMDRD-. 
988 > 900107 “WORD 71. 
989 002104’ 010700 MOV PC-RO :SET COMMON ERROR RET ADR 
330 001 LIF OF MM 
992 002106" 062700 177754 ADD #CENTPA-. ,RO :TO ISSUE OF 'ASGN DEV:’ MSG 
EE a D 8CENPAA-. , RO ;TO ISSUE OF 'ASGN DEV:’ MSG 
99% 002112’ 010067 177464 MOV RO, CERRET 
997 001 IF OF MM 
998 MOV #P4CONS, CVMST sINIT VIRTUAL MEM START ADR 
999 000 .ENDC 
1000 us a 7? O10446 JSR i CVLMD2 GO VALIDATE MODEL & DEV #’S 
1001 OG2l2e’ 122767 77 (177470 CMPB 2? CMCDVN jTHIS DEFAULT TYPE OF DEV? 
1002 130’ 001006 BNE N-S 
1003 1 752 O4O441 177461 CMPB GRONID#S, CHCDVN! ie) IT "NONE"? 
1 140° O01 BEQ S$ Y-5$ 
100S 002142’ 000167 003472 IMP CASERI i REPORT INV DEV TYPE 
100 002146’ 004767 011226 cs: ISR - net CSUERR “SET UP ERROR RETURN ADR 
1908 TST CENADR ;HAS AN ADR SPECIFIED FOR THIS PROG? 
| 1009 BEQ § :Y,N-7$ 
1010 aa BIS 8F IXADR, CRTEXT(RY) ‘cet ITS FIXED ADR FLAG 
| 1012 002152’ 004567 cOB41s 7$: JSR RS, CSPGUP ;SHIFT UP HIGHER PROGRAMS IF NEEDED 
1013 091 IF OF MM 
1014 Ba 
1015 V CENADR, R3 ;GET ENTERED PROG AREA ADR 
1016 BNE 95 WAS THERE ONE? (N, Y-9$) 
1017 MOV CURPTH, R GET START ADR FOR” THIS PROG 
1018 9s: JSR BOP UPAPaR MAP KERNEL PAR’S TO USR PROG AREA 
1926 002156’ 016703 177276 HOV CURPTA, R3 at START ADR FOR THIS PROG 
102 on2162° 010300 : MOV R30 re ;SET UP END OF PROG TBL WORK ADR 
1088 096170" Geb0b7 eae Crp CVMEND ; ENOUGH ROOM FOR PROG TBL? 
i ae at ; mo Cer TLGTH, -(RO) PROG TH 
He ELS: GL? BTS Bi Shs, | Dam WPT 
| 1928 OOze0b* OOEL 10s: LR (RO) CLEAR HORD OF OF PROG TEL 
| 002210" 00530 : 
| N02? 12" iki F fos Arcos (Y Silos) 
1031 002214 012763 100000 soDDD2 MOV #100000 POPSW(R3) INITIALIZE OPSW WORD 
| 1032 O022e2" 767 O11 3b¢ JSR PC, :GET $ IN ASC 
1033 O0eecm’ 0101 MOV Ri’ NCR3) :STORE IT IN PROG 
| 1034 002232" 010301 MOV R3;R1 GET ADR OF PROG NAME IN PROG TBL 
1032 poSeud" nes oo PE, A 
| 1 ’ Ol v PC, RO ;GET ADR OF STORED NAME 
1037 O0e242’ 062700 175536 ADD sCLOC2-. RO 
| 1038 doeeve’ O1e0e1 MOV =: (RO)4, ¢RI)+ ;MOVE NAME TO PROG TBL 
| 1039 ’ O1e0e1 MOV (RO)+; (R1)+ 
| 1040 O0é252" 012021 MOV (RO)+) (R1)+ 
H 
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RS, CSTDVI 

R VR 

RR-. 

CF TCHF , CRFLGW 


2300 
FEBS 
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RO, CRTEXT(R4) 
RS 
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:G0 STORE DEV INFO IN PRO TBL 
:G0 LORD THIS DEV ROUT ‘ 
: DEV UF RAEN ER er abe 
FETCH’ FLAG SET 

Xgl a8 OF SOURCE FILE NAME 
;GET EXEC INTERFACE STORAGE ADR 


;STORE PROG’S NAME THERE 


;GO OPEN SOURCE FILE 


GO TO FETCH & COMPILE PROG ROUT 
ISSUE “ENTER STMNT’S” MSG 

:GO TO ENTER & COMPILE P PROG ROUT 
:STORE NEW FREE MEM START ADR 


;RESTORE PROG TBL ADR 
ADJ PROG TBL ADR’S TO 
;USER PAGES 


;GET PROG’S LENGTH 
;PROG END AT 32 WO BNDRY? 


:N, Y-80$ 
iAbY IT TO NXT HIGHEST 32 WO BNDRY 


:SET UP LOOP CNT 
:CONVERT IT TO A CNT OF 32 WD 
; BLOCKS 


Tore enTt, ROUT TBL ADR 

;STORE LGTH IN CNTRL ROUT TBL EXT. 
;SHIFT DOWN PROG’S 

:ISSUE PGMS COMP/MEM FMTTED MSG 
;RETURN FOR NEXT CMND 


;#;PROG ADR HOLD 
;HSKP MAPMAP WOS IF NEEDED 
;RESET PROG’S TBL ENTRY 





pm ee + ee es ree wm ree ee 
' 


ae ei an MPG CONTROL ROUTINE 
& MODIFY COMMAND ROUTINES 


a | 
j 


bh} pe 


D2 be be Pe he fe fan fe Bae ae Pe Pw ae fs fe Puce Pens Pe Prue Pe fine ne fue fins ne une une Ps Gane 
am NOM cwr-ODS URN Owes 


b-* b= b= b= bh b= bb bs Be Ps Ps fh he pe he bs ps & ops Be ee 
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8 


ENTER, DEL TE, 
000766 


000 


004767 010760 
001 


000 
005014 
005767 OO0SSEE 
100752 
000167 177254 


MACY11 27(732) 24-SEP-76 13:54 PAGE 8-3 


BR CENTPB 


CENERR: CLR (R 
CENERA: JSR RS, CTYPE 


WORD Gerad. 


CENERB: JSR aes 


CDELET: 





-WORD CERMOe-. 
EEKEKEKEKEKREEEERE EE 
* DELETE COMMAND * 
HER EERE EERE ERE EEE 
JSR PC, CSUERR 
.IF DF MM 
JSR PC , MAPHKP 
.ENDC 
CLR (RY) 

TST CECEUD 
BMI EN 


CENTPB 
JMP CCFMT1 


KO2 
DTMGAC.P11 
4 4) 
WORD 006 
LIF OF 
. WORD 
-ENDC 
= x 
x x 
| 
i 


;GO SHIFT ANY PROGS DOWN 


;RESET THIS PROG’S CTRL ROUT TBiL ADR 
SISSUE INSUFF MEM MSG 


5 TBSUS DATA CONV 
;ERROR MSG 


;GO SET UP ERROR RETURN ADR 
;CK & DEALLOCATE UNIBUS MAP REGS 


; CLEAR THIS PROG’S CTRL ROUT TBL ENTRY 
HER PROG # IN CMND 


tY.N-CENTPS 
GO SCAN NXT PROG # 






SEO OCe4 














So | mgs 


0 2b b= p= b= pb pe 


002434" 004767 
001 


002440" O04S67 


SITAEHO-SSBVRARLERHSBBY 


Qe Ba bn Bt pe be Be sn Be Be BS De bh oh be te be be 2 tk oe hs bm he pe > b= bs bb — b= b= b= bh 9 bb bb pe pr br pe pe 
as 
ve) 


be he b+ bs = FF hs 0 hb a be he be bh be Fb bh hn be pe Phe Pe Bp hn Pe Pe pee pp Oe 


RO BBs Vout 2rd we UU Ee Oto UT SFO ee 
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010740 


006130 


0035S4 


011242 





’ 
’ 
. 
s 
° 
J 
’ 


CMODIF: 


108: 


CSHIFT: 


: 
Sapp aM Rag? 
fa 
i 





SEG 0025 
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HREEHKRKLERE EELS HEH Z ES 
x % 
' MODIFY COMMAND ' 
SHELL EH EK EL ELE SFLEEE 
JSR PC, CSUERR ;SET UP ERROR RETURN ADR 
“IE OF MM 
MOV (R4) , CENADR ;STORE HI 16 BITS OF PROG AREA ADR 
MOV R3, CUMST ‘INIT VIRTUAL MEM START ADR 
BIS R3, PRDIOA(R3) $00) PROG TBL ADR’S TO 
BIS R3, PWRIOA(R3) PAGE 4 
BIS R3, PSRCST(R3) 
BIS R3, POBJST(R3) 
JR RS, CSPGUP ;GO SHIFT UP HIGHER PROGRAMS 
: R4).R GET P A 
a pe eBB aR iAP ERR te PAR s TO USR PRG AREA 
JSR CTYPE ;ISSUE “ENTER STMNT’S” MSG 
“ORD CESMSG-. 
JSR RS, MODIFY ;GO PROCESS CHANGES & RECOMPILE 
BR CENTPC GO SHIFT DOWN PROG’S 
‘a 
“SBTTL SHIFT AND UBMAP COMMANDS 
ree 
' SHIFT COMMAND ' 
RKAKKAKRARAALEAELAEE 
TST CSCFWD ;ANOTHER OPERAND IN CMND? 
10$ iN Y-10$ 
CN20ER REPORT NO 2ND OPER ERROR 
#’T, JCPNTR its ITS FIRST CHAR A “T"? 
3S et? 
CTYPE oe TO’ NOT SPECIFIED ERROR 
o42 MSG 
CERM36-. 
SCAN THE TO’ 
Re ‘DESTINATION OPERAND SUPPLIED? 


:N. Y= 
aS ype i MecuER NO DESTINATION ERROR MSG 


;SAVE NXT OPERAND PNTR 
RS, CSCN “SCAN DESTINATION OPERAND 
(SP)4, CPNTR RESTORE PNTR IN CASE OF A PROG ADR 
















DTNGAC.P11 


SESRAL GSS SSSERES 


I tet eten b+ b= bb = hs bm fm P= pe ba 
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a 
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SHMVSL: 


SHMVFA: 
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CMPB #'M, ICOSTAD 


BEQ H 
JSR RS ASDECO 
. WORD SHPGN 

JSR RS BECaiN 
.WORD = SHPGNA-. 

CMP A #MAXPRG 
BHI SHPGNA 


;SHIFT PROGRAM TO DIFFERENT SLOT 


MOV RY, RS 
JSR RS; CVPNM1 
CMP R4'RS 
BEQ 
TST CRTEXT(RS) 
BMI SHMVFA 
ISR PC, CSUERR 
JSR RS; CSPGUP 
MOV (R4) RI 
JSR PC, CKF3PG 
Hoy crt XT(RS),R3 
BLO SHPGE1 
MOV (R4), =(SP) 
MOV RS, -tSP) 
MOV (RS). (RY) 
MOV Ri, 
JSR 
MOV (SP)+,RS 
MOV (SP)4" (RS) 
MOV (RS), tR4) 
MOV CRTEXT(RS) , CRTEXT(RY) 
CLR (RS) 
MOV (R4).R 
JSR PC, 
JSR PC; 
Hoy RI PASCINCR) 
: JMP aa 


;SHIFT PROGRAM TO MPG CONTROL OF 


PAGE 8-S 


i1S ITS FIRST CHAR AN 'M’? 
Y-SHTMPG 

‘CONVERT DATA TO PACKED DECIMAL 

sCONVERT PKED DEC T0 BINARY 


# LARGER THAN HIGHEST PROG #? 
in, Y-SHPGNA 


;SAVE ORIG SLOT ADR 
;GO VALIDATE DEST OPER AS A PROG # 
;THE YO-YO SPECIFY SAME SLOT #’S? 


: SHPGND 

218 ORIG PROG AT A FIXED ADR? 

ite 

SH ait PAY PROGS fs ABOVE NEW SLOT 
:GET Std OF AVAIL MEM IN Re 


TH 
OR PROG? 


se 
see 
8 


pes Hey be 
: STORE EH PROG ROR 


ROVE prog ADR TO NEW SLOT 


OFT Pa Rt Sof #1 PIN ASCII 


ART nO 


ITS ADDRESS 


Ist CRTEXT (RY) 15 IT UNDER MPG CONTROL? 
ISR PC, CSUERR CET | UP ERROR RET rR 

Mee Fe CopNEP Sart oB Bay upe con 

MOV CSPNPA, RI Set UP et sar 

MOV RL RS UT FOR On Rove S/n 

JSR CKF3PG ier ZE OF AVAIL AREA IN R2 
MOV CREXT(RY) ,R3 GET TH 

BIC #F IXADR, R3 SET F ADR FLAG 

CMP R2 j ENOUGH FOR PROG? 

BLO 1 N-SHPGE | 

JSR PC, MOVPGD ‘ROVE PROG INTO MPG’S AREA 








wees * | hhieee 
DTNGAC.P11 ENTER, DELETE, 


1278 


TERIISRARRERRASS 


MPG CONTROL ROUTINE 


SHPGNA: 


SHPGE 1: 


SHPGE2: J 


CKPGAD: 
108: 


MACY11 27(732) 
& MODIFY COMMAND ROUTINES 


MOV 


BAY 


CSPNP 
! FeO, RRTEXT(RY) 


24-SEP-76 13:54 PAGE 8-6 





STORE ITS NEW ADR IN SLOT TBL 
RESET en S Fxbe ADR FLAG 


;SHIFT PROGRAM TO NEW FIXED ADDRESS 


JSR 


RS, CSCN 
RS’ ASOCBN 
CENERB-. 
PC, CKPGAD 
R2 


;RE-SCAN THE DEST OPERAND 
;CONVERT ASCII DATA TO BINARY 


;CK IF PROG ADR IS VALID 
iN + AOR SAME AS OLD? 


:N. Y=SHPGND 
ie WITHIN MPG CONTROLLED PROGS? 


ee Oreits 


; Y, N-SHP: 

I-SeaD TH IN 32 WD BLKS 
RE at AOOR FR IF THERE 
iE FOR THIS PROG? 


Paty $18 TTS NEW A NEW AREA 


se MEM AVAIL 


; STORE ITs START ADR a 
*SET UP ITS ” 
: MAP 


ck ? OUT OF RANGE 
0 EXIT 


60 REPORT INSUF. ROOM FOR PROG 


; ISSUE *PROG AREA IN USE’ 
ERROR MSG 


S/R CALL 


:RO & R2 CONTAINS A 22 BIT AOR 
FON EXIT: Re CONTAINS HI 16 BITS OF AOR 


;DESTROYS 
810. ,R1 


;GET HI 16 BITS OF AOR 
:IN Re 


CONTROL ROUTINE CYil 
LETE, $ MODIFY COMMAND ROUTINE 


z 
a 


pitictcineiicistew eet 


IW WWI LWIGIWIWIWy) 
0 0 02 2 02 = = oe pe 
OD IO U1. GIP (> 


0-2 & -+ b= B= b+ & < b= b-< & «— BH — 2 6 & 2 fs p> 9-0 H-2 H 0h 2H 2p 2 po Be 


BS SSH PSRES 





MA 
DEC 

8 10$ 

BI #176000, RO 
BEO 20S 

INC Re 

CMP Re, CPAREA 
BSHIS 63 

JSR RS, CTYPE 

: CERN3S-. 

é CRMEND 
Bae RS. CTYPE 
.WORD 003 

“WORD  CERMO9-. 
RTS PC 


EEE EERE REET EE EE 
> * 
% UBMAP COMMAND # 
* 2 
A AEA SE AEA a a a aE 





gr (7a) 24-SEP-76 13:54 PAGE 8-7 


; ADR a A 32 WO BNORY? 


Y- 
POINT TO NXT 32 WD BL 
1S ADR WITHIN MPG AREA? 


Y,N-30$ 
ISSUE “ADR WITHIN MPG” ERROR 


;I1S ADR > MEM? 
;Y,N-40$ 
: 1OSUE “ADR > MEM” ERROR 


: BIT SUNIMAP, CSYSFW 


TST PUBMAP (R3) 

‘3 Pc oO Kp 

CLR PLIBMAP (R3) 
RS, CROUBM 


SHPGEX 
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1332 .SBTTL STOP, CONT, KILL, 8 OPSW COMMAND ROUTINES 
133 . LERKEKLESRLSRE ELA ESE 
s # # 
1336 : * STOP COMMAND # 
1337 : s & 
138 : SELEEELSESSARRESELE 
1340 o02462’ 005713 CSTOP: TST (R3) sTHIS PROG ACTIVE? 
1341 02464" 100011 BPL CINACT “Y 
134e 002466’ 052713 o00002 BIS SURSTOP, (R3) iStT USER STOP FLAG FOR THIS PROG ’ 
1343 002472’ 000167 177252 CLSIMP: JMP CCFMTA GO CHECK FOR ANOTHER PROG # 
1345 
1346 : PEXHESHELERSELE PELE 
1347 : * ¥ 
1348 : % CONT COMMAND % 
1349 : * * 
i : HEELEKLERERSEXNSSE 
1356 on2476" 005713 CCONT: TST (R3) sTHIS PROG ACTIVE? 
l *] BPL CINACT *Y¥ N=-CINACT 
1364 002502" 042712 000006 BIC SURSTOP+ERSTOP, (R3) RESET USER & ERROR STOP FLAGS 
| 1355 002506’ 000771 BR CLSJMP tEXIT 
| 1357 002510" DO4SE7 003510 CINACT: JSR RS, CTYPE sISSUE ‘INACTIVE’ ERROR MSG 
| 1358 002514" OO0006 -WORD 006 
1359 002516" OO4445 “WORD  CERM27-. 
| Ter 
| 1362 s ERELRELEKRERKESELS 
1363 : * x 
| 1364 : # KILL COMMAND # 
; 1365 : ¥ # 
i 18 : RERERELKEKERERE EEE 
1368 CKILL: TST (R3) sTHIS, PROG feTive? 
136 BPL CINACT tYN-C 
1370 100000 BIC SACTIVE, (R3) RESET ITs ectve FLAG 
| 1371 031460 TST CSYSFW Lens @ BEING PROCESSED? 
| 1375 900040 a SSETDED, (RO) als Roe SET PRT DEV DEDICATED FLG? 
137% 004000 031442 I SCHPINT, CSYSFW 1S PRINTER BEING USED? 
1327 175234 Ho CLISTI RO fa OF PRINTER INFO 
| i378 oeHooD 031422 2S: BIC TUDED+CRUDED+CHPINT, ostern a leeceT BR Per iN y OED. BEE acs 
1380 BIC apy OED, R -RESEt THIS “I SET IT" FLG 
1381 032064 cS: cH ( 1S THIS ee PBRoc THAT’S RUNNING? 
| 1 10S sY,N-10$ 
1383 IF OF MM 
| 1384 FF 
| 1395 MOV PC, RO ;SET UP ABORT RET ADR FOR PROG 
| 1386 032406 ADD —- sCKILEX-. , RO 
| 1387 000014 MOV RO, le. (SP3 ;STORE ADR IN PROG’S PC ON STACK 
| 
i 


Se ee 


MAINDEC-11-DTMGA-C MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 9-1 SEG 0030 
DTMGAC.P11 STOP, CONT, KILL, 8 OPSW COMMAND ROUTINES 


1388 IFT 

1389 MOV #CKILEX-PGEBA+PECONS, 18. (SP) ;SET UP ABORT RET ADR FOR PROG 
1330 BIT #140000, 20. (SP) WAS USER IN KERNEL MODE? 
133 BNE ry N-108 

1 MOV RO -SET UP KERNEL MODE 

1393 ADD #CKILEK-. RO “ABORT RETURN ADR 

1334 MOV —s RO, 18. (SP ;STORE IT INSTEAD zs 
1395 000 .ENDC 5 
13% 002616’ 010300 10$: MOV R3,RO :GET ADR OF DEV ROUTINE KILL a 
1 002620’ 062700 000302 ADD #PTLGTH+DKILAD, RO ROUT 

1398 bebe 095710 TST —- (RO) is THERE A KILL ROUT IN THE 
1399 ’ 001721 CLSIMP ‘DEV ROUT? (Y,N-CLSJMP) 
1400 002630’ 061000 ADO (RO), RO *MAKE ITS ADR ABSOLUTE 

1401 C01 IF OF MM 

1406 nie MOV SPPAR6 , J8KPARG sPOINT PAR & TO SHARED CODE 
1404 002632" 004510 JSR RS, (RO) :GO TO KILL ROUTINE 

140s 002634’ 600716 BR CLSIMP EXIT 

1407 

1408 ; HREKFSREALL REE KL HEE 

1409 ; a + 

1410 : * OPSW COMMAND # 

1411 : * $ 

is ; HEKKFHLELLARAKAERKE 

1414 , 7 010630 COPSW: RS, CISDNM :GO ISOLATE PROG # IN CMND 
1415 cranes 1 13 Ri ‘WAS FHERE A NUMBER? 

1416 O0e644’ 001030 BNE COPSWN ?N. Y=COPSWN 

1417 SoebHe’ Gowsb7 005362 ISR RS, CSCNCB :SCAN AND CONVERT OPSW VALUE 
1418 ’ Ol MOV PCRS :SET UP ADR OF CNTRL ROUT TBL 
1418 002654’ 062705 031342 ADD SCRTBL-. ,RS 

1420 002660’ O0S004 CLR RY ;RESET PROG FND FLAG 

1421 O02662’ 005715 10$: TST (RS) ‘THIS ENTRY IN USE? 

1422 O0ebb4’ 001404 BEQ 208 :Y, N-20S 

1423 001 IF OF MM 

1424 .IFF 

142s 002666’ 011501 HOV (RS), RI ;GET PROGRAM TBL ADR 

1427 MOV RO, -(SP) ;SAVE OPSW VALUE 

1428 MOV (RS), CWA i STORE PROG'S HI 16 BIT ACR 
1429 JSR G22BAD : TE 22 BIT ADR 

1431 ier : PC, CVTVAD sCONVERT IT TO A VIRTUAL ADR 
1432 MOV (SP)+,RO RESTORE ey VALUE 

1433 000 . ENDC 

14 70’ 010061 00002 MOV RO, POPSH(RL) ;MOVE NEW VALUE TO OPSW 

14 74° 1S RY ise PROG FLAG 

1436 002676’ 25 20S: S (RS)+ sINCR TO ie TBL ENTRY 

1437 * 022715 177777 CMP #177777, (RS) END OF TABLE? 

1438 ’ 001 266 BNE 10S *¥ Nel 

1439 ’ TS RY * WERE *S FOUND? 

1440 oboe? , 402 COPER :Y N-COPER 

1441 12’ 000167 177044 CCFPBJ: JMP CCFMTB GO CHECK FOR NO MORE DATA 
1442 002716" 7 003302 OPER: RS, CTYPE ISSUE *NO PROG’S FND’ MSG 
1443 002722’ O00002 002 





NAINDEC-11-DTNGA=C MPG CONTROL ROLITINE MACY11 27(732) 24-SEP-76 13:54 PAGE 9-2 SEO 0021 
DTNGAC.P1l STOP, CONT, KILL, 8 OPSW COMMAND ROUTINES 

aaa ooe7e4’ 004041 .WORD  CERML4-. 

ive ; *# OPSWN FORMAT *# 

1448 726’ 010267 476530 COPSWN: MOV Re, CPNTR SET UP START ADR OF & 

1448 732’ ? 546 JSR RS; CVPNUM GO VALIDATE THIS FR0e 4 

1450 00 IF OF MM 

1451 JSR PC, UPAPAR ;MAP PAR’S TO USER’S PROG AREA 

1452 p00 .ENDC 

14 002735 ? TST R3 ;PROG EXIST FOR THIS #7 

l ’ 001 BNE 30$ 

1455 002742’ 000167 176772 IMP CCFPDE iGO RE ERROR 

1456 002746" 004567 O00Scb2 30$: JSR RS, CSCNCB Seon 5 RONTERY OPSW VALUE 

1457 O027S2’ 010063 900002 MOV RO; POPSW(R3) ROVE OPSW TO THIS PROG 

1458 002756’ 000755 QR CCRPBJ EXIT 


oe ee ee ee eee 





—_ 
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1460 .SBTTL RUN, DISPLAY, & REPORT COMMAND ROUTINES 
3 H RELKKARAFKRAERAEKE 
; * 
ses : , RUN COMMAND ' 
1465 : POrTerrrrTr TTT TT 
146? 
1483 002760’ 032713 000100 CRUN: BIT #OCPRES, (R3) ;0BJ CODE PRESENT FOR THIS PROG” 
1470 002764’ O01S0S BEQ CRUERI *Y N-CRUERL 
1471 002766’ 05767 031222 TST CSYSFW :CONS REQ BEING PROCESSED? 
1472 002772’ 100015 BPL S$ :Y N 
1473 002774’ 005713 TST (R3) ‘THIS PROG ALREADY ACTIVE? 
1474 002776’ 100013 BPL S$ : 5 
1475 003000" 21467 031662 CMP (R4), CPGCPT ‘THIS PROG IN CONTROL? 
1476 003004’ 001511 BEQ *N. Y-CRUERY 
1477 003006’ 032713 O00040 BIT #SETDED, (R3) :DID IT SET “PRT DEV DEDICATED”? 
1478 003012” 001405 BEQ cs : 
1479 003014" bie? 060000 031172 BIC BCTUDED+CRUDED, , CSYSFW RESET SYSTEN” S PreateD Pu FLAGS 
nn3ne?* 
148) posuse° Sos0e3 bobo ss: EERE Pe ash REPAR DEV 8 
1482 003032’ 004767 332 ISR CPGCON port aT A as 
1483 03035 111 MOVB Ras PCURDV(R3) 
1424 * 00456 JSR RS, CPGHSK +80 D0 
1485 003046’ 000001 .WORD 1 UNCON. 00. HSK FL HSKP FLAG 
1486 003050’ 042713 000036 BIC sURSTOP#ERSTOP+UTHIOTACTPRIO, (83) RESET STO STOP & WAIT FLAGS 
1487 003054’ 052713 100000 BIS #ACTIVE, (R3) § ACTIVE 
1488 001 IF OF MM 
1489 al JSR PC, MAPUPG — USER’S PAR’S & PDR’S STORAGE 
143 003060" 005767 005130 iff - CSCFHD ANOTHER OPERAND IN CMND? 
1493 rere mrt rats 10S:  JMP Nyy itr PROG EXECUTION 
1a 003072" 126777 000101 176362 158: C #’A QCPNTR sits FIRST CHAR AN 
bik ’ 
| 1496 Dalby" 005114 oR ¢ ‘SAAN aT? 
| 4497 003106" i3 1 BIC #ACTIVE, (R3) *RESET THE afcTIVE FLAG FOR NOW 
| 1498 003112’ 005702 TST R2 215 LINE # 
1800 ooalle’ Govse? 005120 Tsk RS, CSENCD isan § QNVERT IT TO PACKED DEC 
1501 rigees eazd TSTB. Ss RO) + *LINE ef 
1502 003124’ 001035 BNE :N, Y= 
1503 003126’ 01 i 000022 Nov - PSRCST(R3) , RL GET SOURCE STMNTS START ADR 
1505 We BIS #PYCONS, RI ADJ TO KERNEL’S PAR’S 
27 oa a Hee aC 
a patie: atin BEQ ‘ tN Y-30S 
1510 boa Ie" 000240 000001 CMPB ss #24, LCR) sTAIS THE "END’ STMNT? 
1511 003150" OO014 BEQ CRUERS °N.Y 3 
| 1512 003152" 1 ADD R2, RL :TNCR TO NXT STMNT 
| 1p13 003164" BR 20$ G0 PROCESS NXT. STHNT 
| 1614 156’ 016163 000004 000236 30%: MOV 4(R1), PUSRPC(R3) ‘STORE THIS STMNT’S START ADR 
| 151S 003164’ 052713 100000 BIS BACTIVE, (R3) ‘SET PROG’S ACTIVE FLAG 









MAINDEC-11-DTMGA-C MPG CONTROL ROUTINE MACYL1 27(732) 24-SEP-76 13:54 PAGE 10-1 SEG 0032 
DTNGAC.P11 RUN, DISPLAY, 8 REPORT COMMAND ROUTINES 
1516 003170’ 005767 0905020 TST CSCFWD :ANOTHER OPERAND IN CMND? 
1517 003174’ 100734 BMI 1 *Y N-10$ -- GO TO EXECUTION 
1518 003176’ 000461 BR COMRET G6 CK FOR ANOTHER PROG # 
1520 
1 ’ ? 003020 CRUERI: JSR RS, CTYPE -GO ISSUE NO OBJ CCDE MSG 
12st Mieerh ein -WORD 006 
1523 003206’ 003575 “WORD  CERMIS-. 
ieee 003210" 7 003010 CRUER2: JSR RS, CTYPE :REPORT NO LINE # ERROR 
1 003214" -WORD 046 
1526 003216’ 003601 .WORD CERMI6-. 
1527 003220" 003000 CRUER3: JSR RS, CTYPE ;REPORT INV LINE # ERROR 
1528 003224" O00116 -WORD 11 
1529 003226’ < CERMI6-. 
1530 003230’ 004567 002770 CRUERY: JSR RS, CTYPE sREPORT PROG IN CONTROL 
1531 003234" 000006 .WORD O06 
1532 003236’ 003736 WORD CERM30-. 
1533 
1534 
1535 ; RKEEKRKHKAAKARLAERKERE EEE 
1536 : * * 
1537 : * DISPLAY COMMAND * 
i$38 : * * 
1539 : LERELLERELEREL EERE REE 
ip 
1542 003240’ 016367 OO0006 004312 CDISPL: MOV PASCIN(R3) , CDISPN ;MOVE PROG # TO MSG 
1543 030%’ 010300 MOV R3, RO ‘GET ADR OF PROG’S NAME 
| 1544 003250" Ob2700 000010 ADD #PAAME , RO 
| 3545 003054" 010701 MOV PC, RI ;GET ADR OF PLACE IN MSG 
1546 O03e55 062701 004306 ADD ONAME-. RI 
1547 O03e6e’ 012021 MOV (RO)+, (Rij+ ;MOVE NAME TO MSG 
1548 003264’ O120e1 MOV (RO)+) (R1)+ 
1549 003266’ 011011 MOV (RO), (RL) 
1580 003679" 7? 032304 JSR RS, CLIST s ISSUE DISPLAY HEADER MSG 
| 1551 , WORD C =, 
| 1863 posseo" OoS7e? 04710 ist CSCFuD ANOTHER OPERAND IN CMND? 
Cit the . 
ee rhe BMI cre :Y,N- 
. ibo7r? 000103 176146 CMPB —s«-8#C,, ACPNTR ITS FIRST CHAR A “C"? 
@ Bp is a 
i 2 r 004700 J RS, CSCN >SCAN OVER THE WORD “CODE” 
i 032713 000100 BIT sOCPRES, (R3) :0BJ CODE PRESENT? 
i x 1724 BEQ c -Y¥ N-CRUERI 
1 7 021142 ISR RS, DISPCD :GO LIST SOURCE 8 OBJ CODE 
1 003334 gno4oe BR COMRET “RETURN FOR NXT PROG # CHECK 
1 OouSb 1126 Sos: JSR RS, DISP GO LIST ONLY SOURCE STMNTS 
1 167 176402 COMRET: JMP CCEMTA :GO CK FOR ANOTHER PROG # 
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DTMGAC.Pil RUN, DISPLAY, 8 REPORT COMMAND ROUTINES 

1565 . KEK EPARKSEKE KEL SSF AE 
15665 : * » 
1567 % REPORT COMMAND # 
1S68 ; % % 
1569 : FEPPRER DEE E ESSE ERERE 
191 
1572 003346’ 016746 032150 CREPOR: MOV CRPFLG, -(SP) 
1573 003352’ 012767 100003 032142 MOV #100008, CRPFLG 
1574 003360’ 005767 004630 TST CSCF 
125 raeee ea 000123 176066 ie #’S, JCPNTR 

f ’ 
1259 fossra’ Ooi BNE 
1578 003376’ 005367 032120 DEC CRPFLG 
1579 003402” BR 2s$ 
1580 O03404’ 000103 176050 20S: # CMPB 8°C,aCPNTR 
1581 003412’ 001005 BNE 
1582 003414" 012767 100001 032100 MOV #100001, CRPFLG 
1583 oO03422’ 004567 904574 2s$: JSR R 
1584 003426’ 005763 000300 303: TST PTLGTH+DERPAD(R3) 
1585 003432’ 001005 BNE 40§ 
1586 003434’ OOwSb/ 002564 JSR RS, CTYPE 
1587 003440 .WORD 604 
1588 oo3442’ 004145 .WORD  CRENPA-. 
1589 003444’ Oo04o2 BR Sos 
1590 oo! IF OF MM 
iS31 IFF 
1592 003446’ 004767 032032 40s: JSR PC, CGORPT 
1594 40$: MOV SPPARS, J#KPARE 
1595 JSR PC, CGORPT 
1596 090 .ENDC 
1597 003452’ 012657 o32044 SoS: MOV (SP)+, CRPFLG 
1598 003456’ 009731 BR COMRET 





13:54 PAGE 10-2 SEO 0024 


;SAVE FLAG IN CASE ITS A USER INT 
:SET FLG TO DO BOTH REPORTS 
ANOTHER OPERAND IN CMND? 
fORGE FIRST CHAR AN 'S’? 
“LEAVE STATUS REPORT FLAG SET 
GO TO DO REPORT 
118 ITA ’C’? 
305 
‘Sey COUNTS REPORT FLAG 
SCAN OVER VALID OPERAND 
p15 THERE AN ADR FOR ERROR REPORT? 


3N, Y-40$ 
i Tecue NO REPT AVAIL MSG 
GO TO CMND EXIT 


;GO HAVE REPORT ISSUED 


CO HA PAR & TO SHARED CODE 
HAVE REPORT ISSUED 


RESTORE ORG FLAG 
G0 CK FOR NXT PROG # 


MGAC.Pil FILL COMMAND ROUTINE 
-SGTTL FILL COMMAND ROUTINE 


ag § 


: HKEFHLHRERKAKKKKKE 
- * * 
: : FILL COMMAND : 


B= pe B= p— p-= 


Bec RReak 


HLKKKLKLRELHLARKEE 


8 
y 


000103 176110 CFILL: ty #’C, aCDSTAD fat ay = COM? 


MAINDEC -11-DTMGA-C MPG CONTROL ROUTINE MACYL1 27(732) 24-SEP-76 13:54 PAGE 11 SEQ 0025 
1 
1 
i 
1 003460 
1610 Dose 001 -2$ 
1611 ’ Ol MOV PC, RY ioe UP COMOO AS START ADR 
1612 003472’ 062704 036346 ADD #LCOMO-., 
1613 003476’ O1040S MOV RY.RS SET UP COMO9+2 AS END ADR 
1614 003500’ 062705 000024 Pe 
1615 003504" OD0412 BR g :60 CK FOR te 
1616 003506’ 122777 OO0102 176062 2%: CMPB =: #’B, ACDSTAD 
tei Dosere’ Orono oa celeR ag ere T9_BUF 0 BEGIN 8 
1ei8 riesit 035720 ADD ACBUFOO-. , RY ‘ah Ta PORT. 
1620 003524" 010405 MOV 4 
1621 003526’ 062705 O00400 ADD #256. RS 
1 0055 004567 007734 4g: JSR RS, CISDNM :60 ISOLATE, BUEFER/COM 5 
1 * 005701 TST Ri sHAS THERE A 
1624 003540’ 001435 BEQ 15S c§ 
1625 003542’ 004567 036602 ISR RS, ASDECO ‘CONVERT IT TO BINARY 
1625 003546’ 000314 .WORD CFIER2- 
1627 003550" 7 036342 JSR RS, DECBIN 
1 003554’ .WORD CFIER2-. 
1 003556’ 1 000103 176012 €MPBs«w#C,, ACDSTAD :IS THIS “COM” FORMAT? 
1630 003564’ 001010 BNE 6S :Y N-6§ 
1631 rece y Ge00e? 000011 C :COM 8 TOO BIG? 
Ibe * 101133 BHI CF LER@ iN, YSCETER2 
1634 ieee ,R4 rn, uP Eon START ADR 
1635 003600’ 010405 MOV RYRS :SET UP COM END ADR 
te rent BR a GO PROCESS DATA 
1638 Sosene 000017 6S: CMP a #15. *BUF ® TOO LARGE? 
1639 003612’ 101123 BHI CFIER2 :N. Y=CFIER2 
1640 003614" ASL RO ‘COMPUTE BUFFER’S START & END 
1641 003616" ASL RO :ADR’S 
ies See Bae - 8 
1644 b03be4" 060004 ADD RO, RY 
1645 * 010405 MOV R4’RS 
1646 00360; 062705 000020 ADD #16. RS 
1647 ’ Oguse? 004362 1S$: JSR Rasy SCAN NX OPE 
1648 OOH" 1 000127 175730 CMPB SAC ICDSTAD IS IT THE 'WITH’ OPERAND? 
| Je49 * OO111 CFIER3 :¥ N-CFI 
| 1650 , TST ;ANOTHER OPER PRESENT? 
1651 ’ 100513 BN CFIERY *Y N-CFIE 
| {¢52 ' CLR sé ‘CLEAR CHAR CNT 
| 1653 * 905002 CLR R2 "RESET INCLUDE CR/LF FLAG 
| 1654 rieent 122777 000052 175574 CMPB ss #" #, ACPNTR “FIRST CHAR OF NXT WD = #? 
| 1655 003666" 001435 BE css *N, Y-55$ 
| 





reat P ~11-DTMGA-C 
DTNGAC. 


Pll 


ies? eee 


saseneen a 
i Gee = Sonne 


ef Sie 


NN 
ee 
-O 





FILL COMMAND ROUTINE 


ees 000043 175564 


’ 122777 
’ 001505 


ze 


a 
= 
ie 
= 


~ 
=a 
~ 
oOo 


as 


o0001e0 175554 


004320 


004264 


MPG CONTROL ROUTINE 


20S: 


30S: 


40S: 
50s: 


sss: 
60S: 
70S: 


80S: 


90S: 


CFIER1: JSR 
- WORD 
WORD 


MACYL1 27(732) 


CMPB 
B 


#’#, JCPNTR 
&0$ 


#’P, JCPNTR 
CF IPAT 


;OCTAL/BINARY FORMAT 


RS, aici 


#012, (RO) 
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+f IT A NBR SIGN? 


0 
me” IT A “P” FOR PAT? 
:N, Y-CFIPAT 


;SCAN & ‘eel DATA WORD 
BS OF Cea gore 
qe 


Y-CFIEX 
ART THER DATA WORD PRESENT? 


=0? 
Y-CFIER4 
NAY UP BUF START ADR 


;SET UP WORK CHAR CNT 


‘SET UP WORK BUFFER START ADR 
“PROPAGATE A CHARACTER 

BUFFER FULL? 

N, Y-CFIEX 

*DECR CHAR CNT BY 1 

:CNT=0? 


N-SOS) 
:G0 START ‘ar BEGINNING OF DATA 


FT ” INCLUDE er FLAG 


Y-80S 
ye A LINE FEED? 


N- 
*SET CR/LF IN OUTPUT AREA 
s INCLUDE THEM IN CHAR CNT 
*RE-ADJUST END ADR 
“BUFFER FULL? 


Y,N- 
Gb TO CMND EXIT 


;REPORT NO BUF OPERAND 


SEG 0026 





bbb pe baw Be Bae pnw 
NSNNNNNNN 
= sb he be bo Pe pe 
MOnNMUI£Wwr 


Stet RasRS SRA 


REECE EEPEE EEE: 


a2ae2 


es 


baa 


2 
Ys] 


aided 


MAINDEC-11-DTNGA-C 
DTNGAC.P11 


o04062" 


Srnuokh 


NSLRRLBFESSERB 
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002136 


002126 


002116 


174112 





MACY11 27(732) 24-SEP-76 13:54 PAGE 11-2 
;REPORT INV BUF & 
;REPORT “WITH" NOT SPEC 
;REPORT NO DATA SPEC 


;REPORT INV PAT # 


PATTERN FORMAT 
R 

OMPUTE BYTE COUNT 

TORE BYTE COUNT 
THE WORD - 

CAN WORD FOR DECIMAL # 
THERE A #? 

3N, Y-100$ 

-1§ THIS “PATA’? 


: 9ss 
:SET UP PATA VALUE 
GO DO PATA 


:¥ N-CFIERS 
SET UP PATB VALUE 
;GO PATB 

‘CONVERT # TO BINARY 


CFIERS-. 
RO, SLPATEN-LPATOP/2 
CFIERS 


;PATTERN #_ TOO LARGE” 


3N, Y-CFIERS 
:MULT # BY 2 TO GET DISPL. 
INDEX INTO TABLE 


;STORE ADR OF PATTERN’ 
;G0 le THE PATTE 


;__REL PATTERN ADR 
;RETURN FOR NEXT CMND 
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Pll MEMORY MAP COMMAND ROUTINE 
1758 .SBTTL MEMORY MAP COMMAND ROUTINE 
1761 : KHAKKAHRKAAEKELRKAKEE 
1762 : % + 
1763 : % MEM MAP COMMAND * 
1764 : % t 
1765 . KAKEK KE KKK EEK HL ELE ERE 
ise? 
1768 OO4e2S4’ 004567 001744 CMAP: JSR RS, CTYPE ISSUE MEM MAP HEADER MSG 
1769 004260" -WORD 600 
1770 OO04262’ 003134 "WORD CMMHDR- 
1771 00 “IF OF 
1772 TST CSCFWD ANOTHER OPERAND IN CMND? 
1773 BMI CMPALL *Y N=C 
1774 ADD 8CMPIPG-CMAP , CR2ADR “ADJ RETURN ADR OF CCFMTA S/R 
1775 JMP CCF ;60 DO COM PROC FOR PROG # 
1776 CMPIPG: MOV RY, - PROG MAP FLAG 
1777 BR CMPPPG 30 PROCESS THIS PROG 
1778 CMPALL: CLR -(SP) RESET 1 PROG MAP FLG (WILL DO ALL) 
1779 000 . ENDC 
1780 OO4264’ 010704 MOV PC, RY SET UP CTRL ROUT TBL ADR 
1781 O04266’ 062704 027730 ADD #CRTBL-. ,R4 
1782 O0427e’ 005714 CMPCKE: TST (RY) sENTRY IN USE? 
1783 004274’ 001005 BNE CMPPPG -CMPPPG 
1784 * 005724 CMPNXP: TST (R4)+ i TWCR TO NXT ENTRY 
1785 004300" gee? 14 177777 CMP #177777, (RM) jEND END OF TBL? 
5B 004306" reed G0 oO FREE MEM MSGS 
1788 004310’ 011400 CMPPPG: MOV *GET PROG START ADR 
1789 004312’ 004567 034604 JSR Re S etnase :CONVERT IT TO ASCII & PUT 
1790 004316’ 003136 agnsta IN MSG 
1791 001 LIF DF MM 
1792 _IFF 
1793 004320’ 011400 MOV R4) RO GET PROG END ADR 
1794 322’ 066000 o00n26 ADD PENGTHCRO) ,RO 
1795 004326’ 005300 DEC RO 
1797 MOV cay) R3 ;SET HI 16 BITS IN CORRECT REG 
1798 JSR C, UPAPAR : L PAR’S TO THIS PROG 
1799 MOVB a, CMMFPI “RESET FIXED PROG CHAR IN MSG 
1800 MOV CRTEXT (RY) ,RO iG *S LENGTH IN 32 WD BLKS 
1801 BPL 1 FI 2 (Y.N-10$) 
1802 MOVB = &’ F, CMMFPI *SET AN “F" IN THE MSG 
1803 BIC 8F IXADR, RO ;RESET FIXED ADR FLG 
1804 10$: DEC IT 
1606 ADD (R4) ,RO ADD IN START ADR 
108 004330’ OO4SE7 034566 JSR RS, BINASC sCONVERT TO ASCII & PLACE 
1808 004334’ 002132 WORD C CMMEND=. IN MSG 
1810 004336’ 011400 HOV (R4) ,RO GET PROG TBL ADR AGAIN 
16l¢ Ov R3, RO GET PROG TBL ADR AGAIN 
1814 004340’ 062700 000010 #PNAME , RO ;POINT AT PROG’S NAME 















MAINDEC-11-DTMGA-C 
DT Pll MEMORY 









1815 

1816 O04346’ 062701 003130 
1817 3Se’ Ole0el 

1818 004354’ Ole0el 

1819 O04256’ 012011 

1820 360’ 016001 900014 
1821 004364" 904567 007156 
1822 004370’ 003116 

1823 O00437e’ OO4S67 001626 
1824 004376’ 000404 

1825 004400" 003051 

1826 1 

1827 

1828 004402’ 000735 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

18s 

184 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 
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 1FF 
CMPPFM: MOV 


MACY11 27(732) 


MOV C,RI 

ADD #CMMPNM-. .R 

MOV (RO)+, (RIS+ 

MOV (RO}+, (RL) + 

MOV (RO)+: (R1) 

MOV PROL GO PNANE 6(RO),RI 

JSR 5 FDVNAM 

. WORD MDL- 

JSR RS, CTYPE 

.WORD 404 

“WORD  CMMMSG-. 

LIF OF MM 

_IFF 

BR CMPNXP 

IFT 

TST (SP) 

BEQ CMPNXP 

ADD #PUPARS , R3 

MOV R3,RS 

ADD #PUPDRS-PUPARS , RS 

TST CSYSFW 

BPL 

TST CPGCPT 

BEQ 

CMP RY. CPGCPE 

BNE 20$ 

HOV SUPARO,R3 

nee 

MOV sPACONS PROTOX, R3 

JSR PC, PRTAAD 

BIT #UNIMAP, CSYSFW 

MOV #PYCONS, R3 

TST (R3 

BEQ 

ADD #PRDIOV,R3 

ISR PC, PRTVAD 
#P4CONS+PLUBMAP , R3 

MOVB ¥+, RO 


TST CSCFWD 
BMI CMPPF IM 
TST (SP)+ 
4 CCFMT1 
CFMST,RO 
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;GET FREE MEM START ADR 





;GET ADR OF PLACE IN MSG 
;MOVE PROG’S NAME TO MSG 
;GET PROG’S DEV MDL CODE 
Get 4 NAME FOR THIS MDL CODE & 


G0 ISSUE PROG # & START & END 
;ADR’S & NAME & MOL MSG 


;GO0 PROCESS NXT PROG 
ote. ONLY 1 PROG? 


-CMP 
‘ BOINT AT PAR STORAGE IN PROG TBL 
*SET UP ADR OF PDR REGS 


5 CONS REG BEING PROCESSED? 
use PROG IN CONTROL? 

I$ IT THIS PROG? 

iat UP USER PAR REG ADR 

INT PBR & POR VALLES 
:POINT AT 18/22 BIT ABS ADRS IN PROG TBL 
DISPLAY RDIO/WRIO ABS ADRS 

SUSING THE UNIBUS MAP? 
;Y,N-2S$ 

‘RESTORE PROG TBL PNTR 
; THIS PROG USING UNIBUS MAP? 


“¥ N-25$ 
SBOINT NT AT 18 BIT VIRT ADRS 
sDISPLAY ROTO/WRIO VIRT ADRS 





1S THERE ANOTHER PROG #8? 


REN MOVE 1 PROG FLAG 
GO VALIDATE ITS # 


MAINDEC-11-DTMGA-C 
DTNGAC.P11 ME 


SERRE EERE 


fob 


torn coe 
wo 
Oo 
— 


Sion cau See eG 


0 +b +6 +b 2 b= b-- O = Bb = b= b= Ob b= p= b= be = b= 0 Bb bh ee 
ee ee ee ee en ee ee oe ood 


RRPSEES 


MORY 
010003 
7 
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034504 
175024 


O34466 
001562 


000001 


034426 
001S2e 


173654 
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RO,R3 
RS‘ BINASC 
CFMEND, RO 
RO 


RO, RY 
RS, BINASC 


RS CTYPE 
CFMMSG-. 


R 
RS’ BINASC 
RS, CTYPE 
400 
CMIDLM-. 
CNCMND 


intoraA-. ,R3 
ce 


CMP 
WUNINAP, CSYSFU 
CMPPRM 
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;SAVE IT 
“CONVERT TO ASCII & PUT 
‘GET END OF FREE MEM ADR 


SAVE IT 
; CONVERT TO ASCII & PUT 
‘ISSUE FREE MEMORY MSG 


;ADD 1 TO END OF MEM ADR 
:GET a17e OF “FREE” 
DIVIDE IT BY 2 


;MAKE IT EVEN 
COMPUTE ADR OF “MIDL” 


;CONVERT_IT TO ASCII & 

;PUT IN THE 

ISSUE “MIDL” ADR MSG 

;RETURN FOR NEXT CMND 

iET UP _ADR OF MIDL’S 18/22 
ADRS 


;ABS 
; DISPLAY tage ABS ADRS 
DOING ONLY I PROG? 


tY N= CHPPRN 

: USING THE UNIBUS MAP? 

“SET UP ADR OF MIDL’S 18 

Ble VIRT ADR 

‘DISPLAY FREE/MIDL VIRT ADRS 
REE MEM END ADR HI 16 BITS 


aeeznence 
ian 


(Y,N-40$) 
IST REG # 


aoe 
a 
52 
*3 
Fa 
Fa, 
so 
é 
a” 


;RETURN FOR NEXT CMND 
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DTNGAC.P1! MEMORY NAP COMMAND ROUTINE 
1982 :JSR PC, PRTPAD S/R CALL 
1929 'R3 = UPARS’ ADR 
1930 RS = UPDRS’ ADR 
$3 ‘DESTROYS RO,R1,R2,R3 
1934 PRTPAD: MOVB 8A, CMMPAR+3 -INITIALIZE MSG TO PAR 
1935 10$: | MOV #8.'-(SP) -SET UP REG CNT 
1936 MOV PC RI -SET UP MSG ADR 
1$37 ADD ac -.,RI 
1938 20$: MOV (R3)+. RO GET PAR/PDR VALUE 
93S JSR RS, BINAS! :CONVERT DATA TO ASCII & PUT IN MSG 
940 INC Ri :POINT TO NXT FIELD IN MSG 
S41 DEC (SP) *DONE ALL REGS? 
942 BNE 20$ :Y, N-20$ 
943 TST (SP)+ *HSKP STK 
JSR CTYPE ‘DISPLAY THE PAR/POR MSG 
.WORD 400 
“WORD  CMMPAR-. 
CHPB sa’, CMMPAR+3 : JUST 00 THE PDR MSG? 
BEQ 30S ?N, Y-30$ 
MOVB 8D, CMMPAR+3 :SET MSG TO POR 
MOV RS.R3 -SET UP ADR OF PDR REGS 
BR 108 :GO TAILOR & ISSUE POR MSG 
30S: RTS PC sEXIT IN-LINE 


;DISPLAY RDIO/WRIO 18/22 BIT ABSOLUTE OR VIRTUAL ADDRESSES 


;JSR PC,PRTAAD ABS ADRS S/R CALL 
;JSR = PC, PRTVAD VIRT ADRS S/R CALL 


'R3 = ADR OF IST 18/22 BIT AOR 
DESTROYS RO,R1,R2,R3 


SU RNRER PARRA Aad aaaaaa a uiuuuee peste ees 


PRTAAD: MOV #"AB, CNMUAD+2 ; TAILOR MSG TO “ABS” 
MOVB as CMMUAD+4 
BR Avec ;GO TO COMMON POINT 
PRTVAD: MOV 8"UB, CMMUAD+2 ; TAILOR MSG TO “UBM 
MOVE 8M. CMMUADS4 
PRTAVC: HOV (Ral +, Re ;GET RDIO’S 18/22 BIT ADR 
ISR RS, BI sCONVERT TO ASCII & 
-WORD  CMAMUAI-. : IN MSG 
ADD 84, R3 sPOINT AT SPONDING WRIO ADR 
(R3)+,R2 *GET WRIO’S 18/22 BIT ADR 
MOV (R3) RO 
JSR RS, BINASB sCONVERT 10 ASCII 8 
ie . TYPE Teche AB & WRIO ADRS MSG 
-WORD 400 
“WORD  CMMUAD-. 
RTS PC EXIT IN-LINE 





on ee ne re re ne re re ee 8 + oar ree re re eres a eee ene s See «1 


| 


Z 
§ 


oO 


CECCEEERRLerne reer eat e: 


Ce cee ee es rere ene ete renee On ne Oe OEE OS SESE OE. 


BeBe 888088 
WONMUS Wl 


Rr 
- 
u 
—c 


Retanriniisitsl isis y's 


= 
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PRTFAR: 


PRTFVA: 


PRIFAV: 


PRTUMR: 
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;DISPLAY FREE/MIDL 18/22 BIT ABSOLUTE OR VIRTUAL ADDRESSES 


; JSR PC ,PRTFAA ABS ADRS S/R CALL 
; JSR PC, PRTFVA VIRT ADRS S/R CALL 


'R3 = ADR OF MIDL’S ABS OR VIRT ADR 
:DESTROYS RO,R1,R2,R3,R4 


MOV 8"AB, CFMNSG+2 sTAILOR MSG TO ABS 
Move 8S CFMMSG+4 
MOV CFMST, RY ;GET FREE’S ABS START ADR 
BR PRTFAY :GO TO COMMON POINT 
MOV #"UB, CFMMSG+2 ; TAILOR MSG TO “UBM” 

a’. CEMMSG+4 


#600, R4 ;SET UP FREE’S VIRT START ADR 
:SET UP START ADR 


CONVERT TO ASCII & PUT 


MOVB 
MOV 

MOV 

JSR : 

nove WO, RO fa a END ADR 

SUB CFMST, RO :GET rere ee 

ADD RY, RO :ADD IN RBS/VIRT START ADR 
JSR RS; BINASC *CONVERT TO ASCII & PUT 

.WORD  CMMEND-. IN THE MSG 

MOV (R3)+.R2 :GET MIDL’S ADR 

MOV (R3) RO 

JSR RS, BINASS ;CONVERT TO ASCII 8 PUT 

.WORD CMIDL-. ‘IN THE MSG 

ISR RS, CTYPE ‘ISSUE 1ST PART OF FREE MEM MSG 
.WORD 420 

:WORD  CFMMSG- 

“WORD 47. 

JSR RS. CTYPE s ISSUE “MIDL” PORTION OF THE MSG 
.WORD 400 

“WORD  CMIDLI-. 

RTS PC sEXIT IN-LINE 

. PAGE 


;PRINT THE CONTENTS OF 1 TO 3 UNIBUS MAP REGISTERS 
;JSR  PC,PRTUNR S/R CALL 


‘RO = 1ST UNIBUS MAP REG 8 
*Rl = 8 OF UNIBUS MAP REGS 


DESTROYS RO,R1,R2,R3, R4,RS 





SzRSS 


abba 35 torn 
DTNGAC.P MEMORY MAP 


aoe 


MPG SS ROUTINE 


000 


COMMAND ROUTINE 


MOV R1,-(SP) 
PRTULP: MOV 7 a REG 

ISR PC’ CPNAS! T Pea 7 CoRR cfe ASCII 

MOV PC ARO WHERE THE & GCES 
PRTUBL: ADD (RS)4+.RO :IN s 

MOV R1. (RO) ‘STORE IT 

MOV (R4)4+ RO :GET MAP REG CONTENTS 

MOV (R4Y)+,Re 

MOV (RS)+' PRTUB2 GET I Ts MSG ADR 

JSR RS, BINASS “CONVERT MAP REG CONTENTS TO 
PRTUB2: .WORD  XXKX ASCI b PLACE IN THE MSG 

INC R3 ‘POINT TO NEXT UB MAP REG 

ADD 822. , PRTUBC ‘INCREASE MSG LGTH FOR THIS REG 

DEC (SP) ; DONE ALL REGS? 

BNE PRTULP : V AN-PRTULP 

TS (SP)+ :HSKP 

JSR RS, CTYPE : ISSUE SINIBUS MAP CONTENTS MSG 

.WORD 620 

“WORD  CNMUBM-. 
PRTUBC: .WORD XXXX 

RTS PC sEXIT IN-LINE 
PRTUMA: .WORD  CMMUB1-PRTUB1 


mee eo + eee 






SEG 0043 
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MOV PCRS ;POINT AT TBL WITH MSG ADRS 
i ee MSG uN 








yi ‘bee 


3 
a 


RRR 


SPEER ERR ETE ib 


Lal 


‘ 
esse eseseese93832830808370890O—06-8303—08@O—UMSOUS 


rrurorururururnofrorururufrororurfurururufurorurururvrufory 
Bae Re Re ae ate an ie ae Be se ee Bs fo Bb ee 
VRRPSRYBSo Sh row-oSSVRREBRHS 


= cee ence ca a a SS 
; 
‘ 
j 


| 


MPG CONTROL ROUTINE 
/SAVE AND “FETCH COMMAND ROUTINES 


040000 
175242 


003370 


003350 


wees ee esos 
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.SBTTL /SAVE AND /FETCH COMMAND ROUTINES 


REFKKRRKAAKRESRKKKE 
£ ca 
: 7SAVE COMMAND ' 
KRKEAREKRAKRAKAERREEKE 
MOV R3, RO ;SET UP ADR OF NAME IN 
ADD #PNAME , RO :BROG Tel 
MOV PC, RS THE “SAVE” F 
: TST CSCFWD “ANOTHER OPERAND i CMND? 
BPL 10$ :N. Y=10$ 
MOV #6, Re *SET UP SIZE 
JSR RS; CMVNAM "MOVE NAME TO COMMON AREA 
BR 20$ GO CK CMND TYPE 
JSR RS. CSFCKA * CHECK FOR WORD AS Seneca 
: Rene SACNR Fao RARE B VALIOATE If 
iS RENT s THIS ER CMND? 
JSR RS, SAVE tb 10 SAVE ROUTINE 
JMP CNCMND *RETURN FOR NEXT CMND 
EREKEHELHHSAEL EPL ALE 
$ £ 
. /=ETCH COMMAND : 
SLEAKKSEERERELELEE EE 
: JSR , CFECNR DATE THE HE NAN 
JSR Re’ CSFCKA CHEER "AS" 
BMI CSANPN ‘PROG. 4 PPCLLORY (Y, N-CSANPN) 
ISR - fo» CVPNUM “VALIDATE PROG # 
JSR PC, UPAPAR ;MAP PAR’S TO USER’S PROG AREA 
BIS SCF TCHF , CRFLGW ;SET THE FETCH FLAG 
: JMP CENTPA :GO TO "ENTER’ CMND ROUTINE 
#444 SAVE/FETCH COMMON S/R’S #### 
: TST CSCFMD i ANOTHER ER WORD IN CMND? 
JSR ke Ceen te jm THE WORD “as” 
CES 8A SOSTAD + fade ge 
TST R2 CAPR FOR FOR ANOTHER OPERAND 
: RTS RS EXIT IN-LINE 
: JSR RS, CSCN SCAN PROGRAM NAME 





ne re ene eee nenee-eenen 






SEO O04S 
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DTNGAC.Pil “SAVE AND /FETCH COMMAND ROUTINES 








2128 000006 CFECNR: CMP R1, #6 i158, IT > & CHAR’S LONG? 
2129 BHI CSAINM sal 

130 0 MOV 1,R2 ‘Uae CH R CNT 

131 1 000132 10$: CMPB (RO), #'2 1S CHARACTER OF NAME 0-9 OR 
132 l BHI CSAINM 

2133 1 000101 CMPB =—s- (RO), 8A iY A-CSAINM 

t t Buea SER 

1 1 000071 C (RO), #°9 

1 1 BHI CSAIAM 

2137 OO4704’ 121027 O00060 CMPB ss (RO), #°0 

2138 004710" 103433 BLO CSAINM 

2139 OO47I1e’ 605301 20$: DEC Ri -DECR CHAR C 

2140 004714" 001402 BEQ CMVNAM CK ALL CHAR” gp (N, Y-CMVNAM) 
ail Sov? 16° C RO :POINT AT NXT CHAR 

1 , 108 "RETURN FOR NXT CHAR 

2143 OO047e2e" 012746 000006 CMVNAM: MOV 86, -(SP) ‘SET UP MAX & OF CHAR’S 
2144 OON7 eb 60216 SUB Re, (SP) -GET # OF FILL SPACES 

2145 * 010701 MOV SET UP ST 

214% OO04732’ 062701 173046 ADD #CLOC2-. ,R1 

2147 004736’ 112021 40S: MOVB (RO)+,(R1)+ : CHAR TO OUTPUT STORAGE 
2148 oy ’ DEC Re *DECR CHAR CNT 

2149 * 001375 BNE 40S ‘MOVED ALL CHAR’S? (Y,N-4OS) 
2150 744? Oleb0e MOV (SP)+, Re :GET # OF FILL SPACES 

2151 746’ 001 SO$:  BEQ CMVNE ‘ANY TO DO? (Y,N-CMVNEX) 
2152 004750’ 112721 OOD040 MOVB 840, (R1)+ “STORE A FILL SPACE 

2153 004754’ 005302 DEC R2 *DECR FILL CNT 

gist 004756’ 000773 GO CK IF DONE 

2156 

2157 004760’ 004567 001240 CSANAS: JSR RS, CTYPE sREPORT NO “AS” ERROR 

2158 oy , 000043 é 043 

2159 , “ CERM21-. 

2160 004770’ O04S67 001230 CSANNM: JSR RS, CTYPE sREPORT “NO NAME” ERROR 
2161 OO4774" OO0042 .WORD O42 

2162 004776’ one043 “WORD  CERMI9-. 

2163 905000" Oorsb 001220 CSAINM: JSR RS, CTYPE sREPORT “INVALID NAME” ERROR 
2164 O0S004° 13 .WORD 013 

2165 005006’ “WORD CERMI9-. 

2166 005010’ O04S67 001210 CSANPN: JSR RS, CTYPE s ISSUE “NO PROG #* MSG 

2167 005014" O0004e .WORD O42 

2168 005016’ 901562 WORD  CERMOL- 
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Pll /DELETE, “LIST. ReRS ; /BOCT COMMANDS 
170 .SBTTL /DELETE, /LIST, “ZERO, & “BOOT COMMANDS 
aif H  Peipaetersaeremmmeae™ 
ei74 : ' /DELETE COMMAND # 
: ca 
size HKELKREKREKEXE RAE SRF SES 
e1%6 O0S020’ 005767 003170 CSLDEL: TST CSCEWD ; ANOTHER PROG Nan? 
5ita Bpense 7 177614 an Mader i CaN CBSE NAME g a FATE IT 
2181 005032" 004577 173006 ISR RS ,SOELETE GO DELETE rie PROG 
S163 reaitit hoasey BR CSLDEL © ;CHECK FOR ANOTHER NAME 
2185 
tt, : eerepecateenitetaaegien 
g188 : ' /LIST COMMAND . 
g130 : Titttt titi tititit: 
2192 oOOSO42’ OOSO4s CLST: CLR -(SP) sRESET “ALL” & “FAST” FLAGS 
2193 OOSO44’ 005767 003144 2s: TST CSCFWD s ANOTHER OPERAND IN CMND? 
els DOS0SD’ 100417 BMI 1 -10$ 
195 005052" | 000101 174402 CMPB —s-&’ A, ACPNTR Te" IT “ALL”? 
Siar Dostee’ Deere 00000! ars. (SP) i. 
| e133 DOSDEE’ 12277 000106 174366 4S: chee #’F , CPNTR i1S IT “Fast”? 
| 2200 ppepre: pol One 000400 BIS #400, (SP) soeh T THE “FAST” FLAG 
| 2201 005102" 004567 003114 6S: JSR RS, CSCN -SCAN OVER THE OPE 
eeue 005106’ BR ;G0 CK FOR ANOTHER OPERAND 
005110’ neg oo0004 10$: MOV (SP)+, 205 *STORE THE “ALL” F 
een ps1 4? Oo? 172730 JSR RS, aLIST :GO LIST FETCH DEV DIRECTORY 
120° 208: ~WORD = XXXX 
2206 O0Si22’ 173244 .WORD  CNCMND-. 
2207 005124’ 000167 173236 CDLCEX: JMP CNCMND sRETURN FOR NEXT CMND 
| gsi0 : es 
| eele : ' /ZERO COMMAND - 
cela : tititiittiiiiiiity 
| 
| BIS Doetss: oeoso0 Acabos — sae SSINTUAT CURRENT BEV. 
| 2218 ppetage Besaby MOV (RO)+, RL :POINT OME CODE 
| 2219 005142" 011003 MOV (RO),R3 *GET He UNIT 
| 9220 144’ 7 006376 208: JSR RS, FOVNAM ‘FI ITs DEV NANE & PUT 
| geet O0e1s0" . WORD COUNSG+e- SINTO THE MSG 
| 152° STB.) OR i VALIO UNIT #? 
| @223 005154" i BPL 2s$ Y-25$ 
| e224 005156" TS? 020040 002734 MOV #20040, CZWMSG+6 iN OUT COMMA & UNIT # IN MSG 
| 005164’ 000407 BR 30$ GO TO TYPE 


ee 


MAINDEC-11-DTNGA-C 
DTNGAC.P1l 
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/DELETE, /LIST, /ZERO, 


005166 
005172” 1a76? 
905210" 


00Se12’ 
005214" 


eee 


coe 
Saree 


: 


000060 
000054 
0027i5 
001014 


172606 


002764 
000010 
000116 
000131 


i72S74 


172Sle 


002720 


174330 
174320 
















SEO 0047 
& /BOOT COMMANDS 


25$: Bis #60, R3 ;MAKE UNIT # ASCII 
MOVB , CZWMSG+6 sMOVE A COMA TO THE MSG 
MOVB R3, Cu WMSG+7 ‘STORE UNIT # IN MSG 
30$: JSR Re TYPE : ISSUE WARNING MSG 
.WORD 42 
WORD ¢ CZWMSG-. 
JSR Sie ; ISSUE READ FOR THE REPLY 
ord 
JSR eo. CNSP ;SCAN FOR THE REPLY 
BIT ae ND, Re :ANY DATA ENTERED? 
BEQ O$ 
CMPB ss &#N. ACDSTAD iH REPLY AN “N? 
BEQ r : ~COLCEX 
CMPB ss & Y, ACDSTAD MAS Re PLY A “Y"? 
BNE 0s’ N- aa 
JSR RS, JZERO it TO ZERO DIRECTORY ROUTINE 
.WORD  CNCMND-. 
CDLCEX RETURN FOR NXT CMND 
. RKEREKLELAEKAL EA HES 
s x ca 
: . /BOOT COMMAND . 
: itttriiititittttty 
CBOOT: JSR RS, 38007 GO TO EXEC’S BOOT ROUTINE 
BR CDLCEX ;RET FOR NXT CMND IF ABORT 








oe a 


TMGAC.P11 


ae 
2 


“ 
~- 
t 


= 
- 

a 

o£o 


Hee 





a 
rw 
ese vevsee#esee#eestsesestees © 


a ee 


ri 
+ 
= Lh tel 


Pepe tte RMee ERE SHE RERERERBAR GE aac 


Es 
wre-O 
Bg 
nv 


000004 
172342 


174221 


174200 


MPG CONTROL ROUTINE 
ASSIGN COMMAND ROUTINE 


CASSIG: 


108: 


20$: 


CASFTH: 
CASELJ: 


CASAVE: 


CASFCM: 


MACYL1 27(732) 


-SBTTL ASSIGN COMMAND ROUTINE 


REKAAHHLRERAAELHLALE 
4 $ 
* ASSIGN COMMAND # 
+ * 
KREFEKEKSLEKEKEKS EEE 
JSR RS, CVLMD1 
MOV CMCDVN, RI 
TST CSCFWD’ 

BMI NPN 

MOV CPNTR, RO 
CMPB sow’ F, (RO) 

BEQ FTH 

CMPB saa’. (RO) 
BEQ AVE 

CMPB ss #”L, (RD) 
BEQ ST 

TST CSYSFW 

BPL 

IMP CMD 

JSR RS, CVPNUM 
IF OF 

JER PC, UPAPAR 
TST R3 

BNE 

IMP 

CMPB PMOL CD+1(R3) CMCDVN+1 
BNE Re 

ISR CSTDVI 
BIC Re oD (R3) 
CMPB CMCDVN 
BEQ 4 

MOV R3,R4 

ADD #PTLGTH+DEVDRA, R4 
ISR RS. CRQADR 

BR CASEX 

FETCH ASSIGN 

BIT #04,R1 

BEQ CASER1 

MOV CFTCHT, R2 
BR CASFCM 

SAVE ASSIGN 

BIT #02,R1 

BEQ CASERI 

MOV CSAVEI, Re 
CLR -(SP) 

MOV 


CLDID+4, -(SP) 
CASCOM 


24-SEP-76 13:54 PAGE 1S 


;GO_ VALIDATE MOL NAME & DEV #’S 
GET MODEL CODE 
iANOT HER OPERAND IN CMND? 


: SANPN 
tad ADR OF NXT OPER FIRST CHAR 
iF FIRST CHAR AN “ 


cast TH 
il vt i “S"? 
iN Rina VE 

INLY ASLST 

CONSOLE REQ BEING PROCESSED? 


-GO REPORT ’RESTRICTED CMND’ ERROR 
“GO CHECK IT FOR A PROG # 


;MAP PAR’S TO USER’S PROG AREA 
me EXIST FOR THIS #? 


‘REPORT PROG DOES NOT EXIST ERROR 
; SAME DEVICE ROUTINE? 


INFO IN PROG TBL 
VE FLAG 
DEV ROUT? 


T UP 
INT VECT INFO 
ALLOW DEVICE INFO la IF NEEDED 
RETURN FOR NEXT CMND 


sv ID 4 Ae DEV? 


: I 
a UP FETCH DEV INFO ADR 
GO TO SAV/FTH COMMON 


iva IP zat DEV? 


SAVE DEV INFO ADR 
REQ ADR’S FLAG 


“LOAD” cove. 
ia TO COMMON PROCESSING 


SEO 0048 








MPG CONTROL ROUTINE MACY11 27(732) 


MAINDEC-11-DTMGA-C 
DTNGAC. ASSIGN COMMAND ROUTINE 


RNase 


—OooO 
Oo 
4 


- 
tT 


e 


Cae 
iS 


ay 





nn EE 


i 
# 





LiST ASSIGN 


#01,R1 
CASERI 

cist! Re 

(SP) 
exeoro+4, -(SP) 
R1,(SP)+ 
Rl CNONID+4 
CLISTI,Re 


#CHPINT , CSYSFW 


 ] 
R1’ (Re)+ 
CHEDVN#3, (R2) 


0 
CERM31-. 


24-SEP-76 13:54 PAGE 15-1 


;VALID LIST DEV? 
N-CASER] 

fl UP LI I DEV INFO ADR 

‘SET REQ ADR’S FLAG 

GET “KYBD/KBOO” MDL CODE 

; ACCEPTABLE DEFAULT NAME? 


*N. Y-60 
:15 THIS A "NONE’ ASSIGN? 


:¥ N-708 
-1§ THIS FOR THE PRINTER? 
*INT ENABLE BEING HELD SET? 
“RESET PRINTER’S INT ENB 
;GET DEFAULT MDL CODE 
STORE THEM AS CURRENT 
“CLEAN UP STACK 

GO TO CMND EXIT 

j THIS DEFAULT TYPE OF DEV? 
iRecet DIFFERENT IATOR BITS IN MDL CD 
: URR DEV WORDS 


:Y N=CASEX 
pein AT DEVICE INF 


0 
DEV ad ADR FOR S/R 


WORD & CK REPLY TERMINATOR 
20 REQUEST DEV _ADR’S 
RETURN FOR NEXT CMND 


AKE REQ ADR FLG OFF STACK 
06 REPORT INV DEV TYPE 


;TELL HIM HE CAN’T 
CHANGE DEVICES 









ya “i telat MPG CONTROL ROUTINE 
DTMGAC .P ROM & WRM COMMAND ROUTINES 


2389 
2360 
Be 3 
2364 : 
2365 : 
sao . 7 002330 CWRM 
5365 Gosees 100082 
2369 Ng e 000167 174136 CN20PJ: 
2370 005672’ 004567 005546 CWRMOK: 
2371 005676’ 004567 002332 
237e 1 
2373 
2374 005702’ 010024 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 000 
005704’ 005767 002304 
09S710° 100370 
2386 005712’ 000167 172450 
2387 
2388 ; 
2389 : 
2390 : 
2391 ; 
2392 ; 
2393 
2394 001 
2395 
239% 005716’ 016405 CROM: 
2397 
2398 CROM: 
gino rere 005767 002270 
Bie ooe7ee" OoNse? 002302 
ant * 004567 005406 
240S 005736’ 010005 
2406 005740’ 010400 40S: 
2407 
2408 
2409 
sii9 
11 
| e4le 
| 2413 
| Bars 


MACY11 27(732) 


-SBTTL RDM & WRM COMMAND = 


REKRKKAKAKRAAAALAKE 
ea & 
‘ WRM COMMAND : 
RKAKRARKALA ARE RKEE 
TST cSCFUD 
BB CWR 

IMP CNEOER 
JSR RS, CMEMCK 
JSR RS, CSCNCB 
.IF OF MM 

-IFF 

MOV RO, (R4)+ 
IFT 

MOV RO, = (SP) 
MOV RY; RO 

MOV R3,Re 

JSR PC’ CVTVAD 
MOV (SP)+, (RL) 
ADD #2,R4’ 

TST CSCFWD 
BPL CWRMOK 
IMP CNCMND 
KKAKK HLA RKLKRKAEKE 
% + 
* RDM COMMAND : 
KEES LELKR ESR KAEEEERSE 
.IF OF MM 

FF 

MOV RY, RS 
IFT 

MOV #1,R5 

IF TF 

TST CSCFUD 
BMI 40S 

JSR RS, CSCNBS 
JSR R5, CKODAD 
. IFF 

MOV RO,RS 

MOV R4; RO 
IFT 

SUB RY, RO 

ois RS. 
BeOS 

MOV RO,RS 

ASR RS 

INC RS 


24-SEP-76 13:54 PAGE 16 


SEQ 0050 


JTINES 


i1s THERE 8 DATA OPERAND? 

ab REPORT NO SECOND OPER ERROR 
0 CK FOR OUT OF M 

$8 CONVERT NXT OPER. 10 BINARY 

WRITE WORD TO MEMORY 


3 SAVE DATA_WORD 
;MOVE ADR TO CORRECT REGS 


; CONVERT IT A VIRTUAL ADR 
;WRITE WORD T 

:POINT TO NXT MEM LOCATION 
saTiu, ANOTHER OPERAND? 


:N, Y-CWRMOK 
RETURN FOR ANOTHER CMND 


;SAVE FIRST ADR AS START & END ADR 
;SET CNT TO 1 WORD 


;1S THERE A SECOND OPERAND? 
:¥ N= 


:Gb SCAN 8 CONVERT IT TO BINARY 
GO CHECK FOR ODD ADR 


a ADR UP AS END ADR 
T UP CURR REN ROR 


scorpute # OF BYTES 


;NEG ore CNT? (N, Y-40$) 
; SAVE 1M | CNT 

;MAKE IT A WORD CNT 
sALLOW FoR FINAL WORD 








MAINDEC-11-DTMGA-C 


MPG CONTROL ROUTINE 


ROM 8 WRM COMMAND ROUTINES 


DTNGAC. P11 
1 
1 
Sula o0s7¥2" go¥se7 
1S Goerag) Boise 
e420 005750" O04S67 
e421 
e422 005754" 011400 
a 
24 
2425 
2426 
e427 
2428 ; 
busd Qosves* Ob1ses 
e431 005764" O04S6? 
eis O0s77e" ODIs 
2435 005774’ 
ae o0s776" 103402 
2439 
2440 
ev4i 006000" 000167 
2443 906004" 005724 
2444 006006" 020405 
e445 006010" 001753 
eu4B 
2447 
e44B 
e449 
2450 
S482 06012" 032704 
Sues Qoel6* 001750 
e4sy 
2455 006020" 011400 
2456 
2457 
e458 
2461 
e462 006022" 004567 
e463 
2464 006026’ 001361 
2465 
2465 
2467 
2468 006030" 004557 
e469 006034" 000400 
2470 006036" 001350 


033154 
005470 


033140 
000234 


173756 


000007 


033074 


000170 


40$: 


SOs: 


SOs: 


MACY11 27(732) 


R4,RO 
R3,Re 


RS ,BINASE 
RS, CMEMCK 
(RY) ,RO 
RY, RO 
R3, Re 

PC’ CVTVAD 
(R1),RO 


RS,.B NAsC 
CROM 


eos 
CCFMTB 
(R4)+ 
Pa 
em 
+ Ng 


#7,R4 
4o$ 


(R4),RO 
R3,Re 

PC’ CVTVAD 
(R1),RO 
RS, BINASC 
CROMDT-. 
CROMD2-. 
RS, CTYPE 
yo 
CROMG2-. 


24-SEP-76 13:54 PAGE 16-1 


SEQ 0051 


s SET CURRENT ADR IN 
;CORRECT REGS 


ipoT TN RT if RY 4 & 
N_DISPL 
;GO CK FOR OUT OF MEM ADR 
sce? DATA AT CURR MEM ADR 
;MOVE ADR TO CORRECT REGS 


;CONVERT IT TO A VIRTUAL ADR 
GET THE DATA WORD 


5 CONV RT_IT TO ASCII & 
N DISPLAY MSG 
ISSUE ADR & DATA DISPLAY 


Siew! ADR >= END ADR? 
Y,N-SOS 


— WORD CNT 
CNT = 0? 


;EXIT 


;INCR CURR MEM ADR 
jTHIS LAST LOC TO DISPLAY? 


;ADD 2 TO THE ADR 
ae LAST LOC TO DISPLAY? 
Y-40$ 


;THIS ADR AT OCT 10 BOUNDARY? 
3N, Y-40$ 


;GET DATA AT THIS ADR 

;ADR TO CORRECT REGS 

5 CONVERT IT_TO A VIRTUAL ADR 
;GET THE DATA WORD 


;CONVERT IT TO ASCII & 
;PUT IN DATA MSG 


;DISPLAY DATA ONLY 





e473 . 
2474 006040" 000761 BR 50$ 
2475 000 


—-—— — -- 


MAINDEC-11-DTMGA-C MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 16-2 
DTNGAC.Pil ROM 3 WRM COMMAND ROUTINES 

247 .LFT 

247 DEC RS ;DECR WORD COUNT 


;GO PROCESS NEXT WORD 





aa ee Se + ee 






SEG 0052 


MAINDEC-11-DTMGA-C 


DTNGAC.Pil 


Bs 
Be 
RS 


ROAR RAAT 
WONOU CWO 


BERRA RRRR 


Hh 
Re 


MPG CONTRCL ROUTINE 


MACY11 27(732) 


ADD, SUB, BOC, CDB, & CBD COMMANDS 
-SBTTL ADD, SUB, BOC, CDB, & CBD COMMANDS 


005004 
001 


000 
005767 
100404 
004567 
060004 

001 


002144 
002156 


033032 
000126 


172€50 


002i22 


002972 
002104 


$ HRXTKAKLHL FRA HKKX 
; % ¥ 
: : ADD COMMAND . 
: HHKLHRARAHAHLAEKE 
CADD: CLR RY 
.IF OF MM 

CLR R3 

.END 
10S: TST CSCFWD 

BMI CARITH 

JSR RS, CSCNB8 

ADD RO,R4 

m 4 MM 

ADC 3 

ADD Re,R3 

. END! 

BR 10$ 
CARITH: MOV R4,RO 

IF DF MM 

MOV R3,Re2 

.ENDC 
CARIT1: JSR RS, BINASS 

-WORD  CANS-. 
CARDSP: JSR RS,.CTYPE 

-WORD 4Y 

-WORD CANSMG-. 
CARRET: JMP CNCMND 
: REAAKAKKLALA RAR RALAKKE 
: x % 
: : SUBTRACT COMMAND : 
: RELRERLRKRKLARALHLE KEKE 
CSUB: JSR RS, CSCNBS 

MOV fo; RY 

IF 

IFT 

MOV R2,R3 

. IF TF 

CLR RO 

* IFT 

at Re 

TST CSCFWD 

BMI 30$ 

JSR RS, CSCNBS 
30$: SUB R4, 

IF OF MM 

SBC R2 
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;CLEAR ACCUMULATOR REG 


x N-CARITH ANOTHER OPERAND? 


i SAaN BC 


NVERT IT 
sADD IT TO. RUNNING TOTAL 


;GO_CK FOR ANOTHER OPERAND 
SET UP ANS FOR S/R 


;CONVERT TO ASCII 
; ISSUE ANSWER MSG 


sRET FOR NXT CMND 


;SCAN & CONVERT SUBTRAHENC 


SAVE IT 


;CLEAR MINUEND REG 


i18, THERE A MINUEND? 
SCAN ONVERT IT 
NUMBERS 


UBTRAC TWO 


SEQ 0053 


a 












BOS 


MRINDEC-11-DTNGR-o 0 MPG CONTROL ROUTINE MACY! 275732) 24-SEP-76 13:54 PAGE 17-1 SEG 9Os4 
OTMGAC. Pil ROO, SUS, S0°, COS, 8 CBD COMMANDS 
2533 Sus R3, Re 
ENDC 


ess Oo0 EN 
eS3$ 006132" 00°54 SR CARIT 360 DISPLAY ANSWER 


D 


ee ee 


Ber WARM RRR a a ee eae 


MAINDEC-11-DTNGA-C 
TNGAC.Pil 


E 


ADD, 


000740 


004567 
001 


* 004567 
* 000724 


Me} CONTROL ROUTINE 


MACYL1 27(732) 24-SEP-76 13:54 PAGE 17-2 


. BOC, COB, & CBD COMMANDS 


002052 
033722 


000920 






FKELFRLASELERLLSA FLA LLALLLALERARELERLAS 


x a 
: BRANCH OFFSET CALCULATION COMMAND - 
REREAREASHRERR EEE RE EEE ER EAE EE EE EE EEE EE 


csoc: TST CSCF WO 


BMI CNeOPJ 
ia #2,R4 
.1F OF MM 
ADC R3 


.ENDC 

JSR RS, CSCNBS 
JSR RS, CKODAD 
SUB a RO 


-IF_DF MM 
IF 

Re 
SUB R3, ke 
ASR Re 
ROR RO 
8 IFF 
ASR RO 
. ENDC 
BR CARITI 


KELEFFLAELEALLELLAELALLLLALHELES 


& 3 
: CONVERT DECIMAL TO BINARY : 
SSE AE AE EE Se a ae ee EE 


CCDB: RS, CSCNCD 
va OF i, ie 
Pd CARITI 
LIFT 
J RS BINASC 
. WORD 

CcDBDS: JSR CTYPE 
-WORD 4 
“WORD  CCDBMG-. 
BR CARRET 
ENDC 

CCOBER: JSR RS, CTYPE 


“HORD eat, 


i ee A A A a A a a a a a dE kk 
# * 
# CONVERT BINARY TO DECIMAL # 


oe eee 


;GO0 ISSUE INV NUM MSG 


:1S THERE A DEST ADR? 
‘ POINT INST ADR AT NXT INST 


; CONVERT DEST ADR TO BINARY 
:SUB INST ADR FROM DEST ADR 


;DIVIDE ANS BY 2 


;DIVIDE ANS BY 2 
;GO DISPLAY THE ANSWER 


;SCAN 8 CONVERT TO PKED DEC 
;CONVERT IT TO BINARY 


;GO DISPLAY ANSWER 
;CONVERT IT TO ASCII 
; ISSUE CONV ANSWER MSG 


;RETURN FOR NEXT CMND 





(cen ee 








MAINDEC-11-DTMGA-C_ MPG CONTROL ROUTINE MACY1i 27(732) 24-SEP-76 13:54 PAGE 17-3 SEG 0056 
DTNGAC.Pil ADD, SUB, BOC, COB, & CBD COMMANDS 
2533 : * * 
ess : REREERERASRERERRASES LEER EERE EE 
sce 006210° O04S67 002020 Cc@d: JSR RS, CSCNCB ;SCAN 8 CONVERT # TO BINAR 
ee 006214" seat 14 0327Se JSR RS; BTASLZ :CONVERT BINARY # 70 DECIMAL ASCII 
‘treo MM 
006220" 901504 WORD  CANS-. 
S601 O0b22e" 000723 a CARDSP ;G0 DISPLAY ANSWER 
CCDBAN-. 





2604 BR CCDBDS 


;GO0 DISPLAY ANSWER 
2695 008 -ENDC 


aa 
= 
3 
o 





int P | boi MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 18 SEG 0057 


TNGAC.P CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 
2607 .SBTTL CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 

cone hahahahahahaha iaiaiaciciaiaiaiaiaiahaiainiainiainiainiaieiaitiaainiaiaiaininiciniainininisicicinininiciniaie 
3610 THIS 1S ROUTINE FOR FORMA MATS "sey SSAGES ISSUED T To THE CONSOLE 

eb : TERMINAL INAL. T PRO VERAL FUNCTIONS WHICH ARE CONTROLLED 

2613 : BemBuTnG OF A ae EAE THE Ri tg tate MSG WITH 'xER* ’, 
2614 : PRECEDING THE G WITH WITH "PROG 8 x NG THE MSG LENGTH OR ’ 
sie : Coa TA) IN ah EXT Pept pp OFND EITHER 
epis : EXT N=LINE Seite 108 AN Pobre if ones go ies O FeeD- I boat] ; TON, 
2618 : WHEN COMPUTING THE TERMINATION WILL OCCUR ON 

2619 : FIRST OO CHAR. this Cree on NOT BE INCLUDED IN THE pata "Ear TO 
B20 : THE TERMINAL. A CR/LF WILL BE ISSUED INSTEAD. 

oboe LINKAGE: JSR RS, CTYPE ROUTINE CALL 

2623 : .WORD FUNCWD F TION WORD 

e624 : ‘ -, TIVE ADR OF MSG 

2625 : “WORD  CHARCNT OPTIONAL MSG CHAR CNT; THIS 
2626 ; IS REQUIRED WHEN 2--4 OF THE 
2627 : FUNCTION WORD IS SET. 

2628 : FUNCTION WORD FORMAT: 

ee0 x : 2--D=1: REMOVE WORD BEFORE THIS JSR’S RS FROM STACK 
cbse : @--l sls PRECEDE MSG WITH '#ER* ’ 

: “221: WITH PROG. # XX Bt TAILOR 
spa : Ritad RTO THE CURRENT PROGRAM NUMBER 5 eee 
2637 : 2--3 =1= PRECEDE MSG WITH INV ’ 
see = : e--4 =] = DO NOT COMPUTE MSG LENGTH, USE SUPPLIED 
abH0 : COUNT INSTEAD 
obi : @--S =1= TYPE ’ NOT SPECIFIED’ AFTER THE MSG 
eeu : @--§ = 1 = DISPLAY INVALID COMMAND DATA 
sue : 2--7 =1= TYPE AN EXTRA CR/LF AFTER THE MSG 
2648 : 2--8 =1= EXIT IN-LINE 

| 2649 ; =O= EXIT TO ADDRESS STORED AT “CERRET™ 
Spe : : BIT LAYOUT: 
26 } EXIT IN-LINE TYPE "NOT SPEC’ TYPE ’PROG # XX’ 
copes : TYPE XTRA CR/LF USE CHAR CNT TYPE ’*ERe ’ 
bot : DISP INV DATA TYPE *INV ’ CLEAR STACK 
2656 ; DESTROYS REGISTERS: RO,R1,Re 

: NOTE: OF THE FUNCTION WORD IS SET (TYPE PRG 8), 
2659 : “GONTAIN THE ADR OF THE CURRENT CONTROL 

: Rourine TABLE ENTRY. IT WILL BE LEFT UNCHANGED. 


s LEEEREEALE RELA LARA RESRAARE EERE RARER AER REA RRA ARERRRRR RARER REREE ERE 





RR 
oN 


a ee ee ee ce 


2663 


BReRBeR MRE BRE 


® 
Re 


RR 
BR 


PERSE EE’: 


SRRRARASEY 
Oxnomscwre-O 


MAINDEC-11-DTNGA-C 
DTMGAC. 


Pll 


se e@«@eeeseseesee##*s#tgseesesst+sse 


ee * 


rE 
ae 
p= bo 
£o 


42 


eee 


esa 


! 
; 
' 


MPG CONTROL ROUTINE 
CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 


032715 000001 
12616 


oe 


Oo 
8 
es 


= 


_ 
o 


1402 
ee 





8 
ee 
Tw 


ae 


= = 
ee 
ror 


S 


8 
_ 
ss 
Eto 


000010 
17!S16 


oo004e 


000020 


025742 


CTYPE: 


10$: 


20s: 


30$: 


33S: 


35$: 
40$: 


4S$: 
SOs: 


53S: 


Ses: 


MACYL1 27(732) 


#1, (RS) 
10$ 
(SP)+, (SP) 


(RS)+!-(SP) 
#2, (SP) 


sgl CSYSFW 


RS, aCTWR 
cERID-. 


SS eae Roan ae 
+ ~*~ = 2 hue + 
a 3 8 


RBS 
2 


a 
te 


83 
6 


ZR 
ae 
As 
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SEG 0058 


“CLEAR A WORD OFF STACK? 
-Y N= Los 
; REMO WORD BEFORE RETURN ADR 
AVE ROUTINE’S FUNCTION WORD 
 TSSUE #ER® AT BEGINNING OF LINE? 
ineseY SUPPRESS TYPING FLG IF SET 
‘TYPE THE #*ER% 
; [SUE ’PROG # XX’ DATA? 
i CONPITe PROG # IN ASCII 
;MOVE PROG # TO MSG 
‘TYPE ’PROG # XX ’ DATA 
sISSUE INV ’ AT BEGINNING OF MSG? 
;Y,N-335 
-TYPE ’INV ’ DATA 
05) START ADR AND 
SBKE'TT BBSOLUTE 
ae ft ART, AOR TO THIS 
MAK. 
*ROUTINE AND STORE IN CTWR 
LINK INFO 
;MSG CHAR CNT SUPPLIED? 


“YN 
108 Supe eo CNT IN LINK INFO 


Rie THE 00 BYTE 

:STORE COMPUTED CNT IN LINK INFO 
‘ISSUE MSG SPECIFIED 

ISSUE NOT SPECIFIED’ AFTER THE MSG? 


‘Tepe NOT SPECIFIED’ DATA 


;HAS S CHAR CNT SUPPLIED? 
i TésuE A CR/LF 


3 ISSUE INVALID DATA MSG? 
;Y,N-90$ 









SEG 0059 
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Pil CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 


32 
5 





TMGAC 
? ’ 016700 173124 MOV TAD RO T AOR_OF CMND WOR 
e020 Bouse” BigrOl 731 aise Moy eBaNT & fa ao CHBRS TH BORD 
7el 456’ 012702 MOV ag! X COUNT, ,OF DEC 12 
are 462" 020102 CMP Rt eas Horo UF ENG 
4B4’ 101401 BLoS }~6e.-—«&&S 
2724 006466’ 010201 MOV R2,R1 cet WORD LENGTH TC 12 
OO6470" p1OSHe 60$: MOV RS,-(SP) : SAVE G 
472” 01 MOV ‘GET MSG STO ADR 
006474’ 062705 000604 ADD #CERDTA-. ,RS 
2728 ’ 05701 TST Ri ;IS WORD LENGTH = 0? 
e7e3 * 001404 BEQ 70$ :N Y=705 
* 112025 65$: MOVB (RO)+,(RS)+ ‘MOVE WORD CHAR TO ERROR MSG 
2731 006506’ 005302 DEC Re : MAX COUNT 
$736 006519; 1 EC Ri ;DECR WORD CNT 
le’ 001 NE 65$ ‘WO CNT = 07 (Y N-65S) | 
2734 006514’ 005702 70$: ‘TST R2 ‘REMAINING MAX CNT = 07 
re EN Ble me ey 
» 012701 o00040: MOV #40,R1 -SET UP SPACE CHAR 
e737 , 110123 753: MOVB RI, (RS)+ iBaLL OFT AFTER bara WITH A SPACE 
, DEC R2 
2739 * 001375 BNE 75$ * MAX cnt = 0? (Y,N-75$) 
2740 006532’ 012605 80S: MOV (SP)+,.RS5 “RESTORE WORK 
2741 * 004577 171300 JSR RS, actWR ‘DISPLAY INVALID DATA 
2742 * 900525 .WORD  CERMSG-. 
2743 * 000031 “WORD 25. 
2744 OD6S44’ O3e716 000200 90S: BI #200, (SP) ISSUE EXTRA CR/LF? 
a: ’ 
a 555°’ Mita 171262 iis ge aCTWR i TYPE 2 CR/LF 
2747 006556’ 000536 .WORD CECMSG-. 
2748 006560" 000002 “WORD 2 
2749 006562’ 032726 O00400 9s$: BIT #400, (SP)+ sEXIT IN-LINE? 
2750 006565’ 001401 BEQ 100$ :¥,N-100$ 
2751 006570’ O0020S RTS RS ‘EXIT IN-LINE 
oe 006572’ 012605 100$: MOV (SP)+.R5 :CLEAR REG RS OFF THE STACK 
2754 006574" 000177 173002 IMP JCERRET “EXIT TO PRE-STORED RETURN ADR 





HOS 
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MACY11 27(732) 


MPG CONTROL ROUTINE 
CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 


MAINDEC-11-DTMGA-C 


DTNGAC.P11 


an FOR DEV ROUT & I/0 AREAS’ 


,29,30)/ 





;MUST PRECEDE CECMSG 


! PROG I70 AREA > 18 BIT ADR - MAY NOT RUN’ 


; or. 

- “ he, ™~ is : e 2 - 
3 oe oe So. ure Suz. a 
ee oe er. 2 ee 
. sctphge Corals pars sees 8 oe bg 
a i flier ndidlala Be eerectes $= PE, 
an eedheeetbesieheeneeeeeeneirerie Secaeteeseseaeteees aren 
Gz BRRRURNRNNNRNENENeNNaeEaeeaEEaeE: «| (ee 
cineca sitet ae 
. _ BESSRBBSSRBBESRRESSRREORnRE Sarees || SPER 

238g 2h 

s 


sug “Eels ca eat Be i 


585 ae SSa3a5 
tt tt sasaee aaa 
UM) 


Sent oe ia ere a 
SeAgeSENE BET 2 Oe 


toy 8 ge0 


= 


ei Ceres 


ER SENSE ESE SB NASR NDARSRRRN ERE ROR ESG 


ne ee a ee ee 


RRRRESE 


042040 


eeUReeeE 
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MPG CONTROL ROUTINE 


MACY11 27(732) 


CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 
(015><O12>/ENTER CMND/ 


007314 005015 
007331" 015 
00! 
007235’ 130 
000 

7360" 0424 
2 2 
007374’ 054130 
001 
“ 130 
7406’ O11 
007407’ 130 
000 
007416’ 005915 
001 
007435’ 
007435’ ois 
000 
007451’ 075 
001 
007454" 054130 
007466" 054130 
000 
007476’ 054130 
007506’ 054130 
007513’ 050 
001 
007523’ 130 


047105 O4eS24 
OeS0le oSe 


0S4130 054130 


oa7ees 2010? 
040 


054130 054130 
054130 054130 


O200S2 O4eS1S 


043012 O4eSee 


054130 054130 
054130 054130 


054130 054139 
O44S1S 046104 


054130 054130 


CECMSG: 
CASMSG: 


CAAMSG: 
CAAMSG: 


cPnse: 


-ASCIZ 
Teo OF om 


FF 
“ASCIZ 
-ASCIZ 


“EVEN 
at 


sims: 


. 8 o Bw . oe * es — 
iT i" 
ia | lols) De | 
i ape way ee 
N Net tee 


BRBRBE 


BRB 


(015) <O12> /##/ 


/XXXXXX ADJ TO 
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EVEN/ 


AXXXXXXXX ADJ TO EVEN/ 


/RERE / 
/PROG 


"5 meen 
AXXXXXX/ 
AXXXXXXXX= / 


a / 
7XX /  ;WD BNDRY 
DF MM 


gi 0tS> <Ole> 7 MEM MAP */ 


(015><012>/FREE MEM / 


¢015><012>/XXx 
fa # 

XXXXXX TO 7 
AXXXXXX / 
/XXXXXXOO TO / 
AXXXXXX77/ 
“4X 7# 

AXXXXXX 


/ / 
/(MIDL = 
MM 


AXXXXXX) / 


AXXXXXXXX ) / 
(015) <012> /END 
AXXXXXX77 7 
(015) <012> /PXR’ 
AXXXXXK XXXXXX 


AXXXXXX XX 
AXXXXXX SRNR 


ADRS: FREE MEM / 


OF MEM = / 


SO- 
ROO XXXKXX / 


SEG 0061 
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DTMGAC.P11 CONSOLE TERMINAL MESSAGE FORMATTING ROUTINE 
2868 EVEN 
2869 CMMUAD: .ASCI O15) (O12) /XXX ORS: RDIO = 
2870 CMMUAL: .ASCII /XXXXx WRIO = 
2871 CMMUAR2: .ASCIZ OOK 
2872 EVEN 
2873 C : . ASCII O15) <012> /UBN REG # / 
74 ¢ : ARC / 
75 CMMUBe: .ASC XXXII REG # / 
2876 CMMUBS: .ASCII /X 
2877 CMMUBY: ASCII EXHXIK REG # / 
2878 C ASCH /XX = 
CMMUBE: .ASC PRXXKXKKK/ 
2880 000 .ENDC 
2881 007533’ 077, 051501 047107 CADMSG: .ASCII /?ASGN DEV: / 
oeee 007547” 15 osoo12 047522 » ee <O15) <012) /PROG */ 
2884 007560’ 054130 CDISPN: .ASCII /XX (/ 
2885 007564’ 054130 054130 054130 “ASCII PRXXXXX) DISPLAY/<O1S> <O12> «15> <O12> 
2886 007607’ ii 020117 Duesee CRENPO: .ASCIZ MNO. REPI ohvRlL IL/ 
Sane POCEGB’ OSHtaG OStisd PSdtSe EROORD: “AectT * - 
2889 007651’ 077 O47111 O201 ASCH /TINT VEC = / 
2890 007664’ 054130 054130 054 "ASCII «= 'XXXXXX 7 ’ 
2891 007675’ 077 020123 “ASCII /?BUS REQ = / 
2892 007710’ 026130 020130 -ASCII '°X,.X 7? 
2893 007716’ 047101 Oe0l23 CANSMG: .ASCII /ANS = 
2894 001 TE OF MM 
ee : 907724’ OS4130 OS4130 OS4130 CANS: -ASCIZ AXXXXXX/ 
ean Bg CANS: .ASCIZ /XXXXXXXX/ 
2899 CCDBMG: :ASCII /ANS = / 
2900 CCDBAN: .ASCIZ /XXXXXX/ 
2901 000 -ENDC 
2902 007733’ O15 O42412 OS2116 CESMSG: .ASCIZ <01S><012>/ENTER STMNT’S/ 
e303 007753’ “— opie. OS0012 046507 CPCMRF: -ASCIZ <015><012>’PGMS COMPILED / MEM REFORMATTED’ 
2905 010016’ 005015 052101 O4444O CINTMG: .ASCII £015) 012 /AT INT: PC= / 
e306 010034’ OS41 4130 054130 CINTEC: , ci / = / 
010050’ 0541 4130 0541 : [ASCIT /XXXXXX} PROG= / 
2908 001 .IF OF MM 
2909 IFF 
2310 010066’ 054130 000130 CINTPN: -ASCIZ JXXX/ 
2912 CIN "ASCII /XXX = / 
2913 CINTMD: “ASCIZ /XXXX MODE/ 
| 2914 000 ENDC 
2915 010073’ ODD 
| —916 010073’ G77 O42122 O47S11 CIOSZM: .ASCII ’?RDIO = 2567’ 
| 2917 010112’ EVEN 
2918 010112’ 020077 OS4130 054130 CZWMSG: ASCII "? XXXX,X - ARE YOU SURE? (Y/N) 7 ’ 
5343 0101 , Breted 042504 020126 FLLONG: aah (015012) °DEV ROUT *? 
2921 0101 * 054130 054130 054130 FLLONM: FOCIZ | A XKKK XX. MPG” LOADED’ 


*?PROG AREA ADR / ’ 


am 


(ee ce. 
; 


se ns em cae ee er re: 


e324 


5457 
2928 
2929 
2930 
2931 
2934 
2935 
2936 
2337 
2938 
2939 
es41 
ese 
2943 
2945 
eS46 
2347 


2948 
234S 


MAINDEC-11-DTMGA-C 
DTMGAC. 


Pil 





o0c 
010214’ 
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11 27(732) 24-SEP-76 13:54 PAGE 18-6 SEQ 0062 

ROUTINE 
UMRGR@: .ASCII <015><O012>’?UBMAP REG # (1ST OF ’ 
UMNREG : Bout ") 7! 
UMRGUD ASCH <015><O012>/71ST REG USED IS / 
UMRGNM: .ASCIZ /XX/ 
TRPMSG: .ASCII <015><012>/#ER* TRAP AT VECTOR / 
TRPADR: .ASCII /XXXXXX/<015><O1e><015><Ol2> 

-ASCII /AT_TIME OF TRAP: 3/<OLS) OLE» <O1S) <Ole> NES" S/ 
TRPPSM: -Paxtt ¢ (015) <012> /PSW= 
TRPPSW: . HX O15) O12» (O15) <O12) MRO= / 
TRPMRO: .ASCIT EX a 
TRPMRe: .ASCII /XXXXXX 
TRP4YOM: Pett / 7cO1S) (012) <015> (0129 /MMRI= / 
TRPMR1: .ASC AXXXXXX MMRS= / 
TRPMR3: .ASCIZ /XXXXXX/ 
TRPFSM: .ASCII <015><012>/FAILING MODE: / 
MMCRLF: .ASCIZ / / 
TRPISV: enie (01S><012>/INT BEING SERVICED/ 
TRPPMG: .ASCII <015><O012>/CULPRIT IS USER PROG # / 
TRPPNM: .ASCIZ /XX/ 
TRPMPG: + Beane <015><O12>/CULPRIT IS MPG/ 
- EVEN 


BEX 
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-SBTTL SCAN ENTERTED COMMAND DATA S/R 





laleiaialaiahaiabaiabahababaisiahaielaiaisiaiaiabsiniaheleisiaisiaiaiebainiahaiaieiaisiiniaisiaisisinisisiisinisisisinisisisisisinicisicisiaiel 


ewe 


FSO SOE SE SESE SESE SESE OE OEE SESE SEE OE OE SE EOS OE EH OEE OEE ee ee ee 





THIS S/R WILL SCAN THE DATA IN THE COMMAND a ITS CURRENT 
ND OF THE NEXT WORD OR TO THE END 

WHICHEVER C ‘ RO IS F 

TO DETERMINE if THERE TRY P ANOT + WORD OR fF T 


ara athe eae SORE ae = 


WILL BE MADE TO THE ERROR R 
LINKAGE: JSR RS,CSCN SCAN FOR NEXT WORD 


, CSCNSP SET DATA PNTR & SCAN ONLY 
»CSCNMS SCAN & CK FOR MINUS SIGN 
»CSCNB8 OR 
»CSCNCB SCAN & CONVERT TO BINARY 
,CSCNCD SCAN & CONVERT TO PACKED DECIMAL 
DESTROYS REGISTERS: RO,R1,Re 
OUTPUT INFO: 
CDSTAD = START ADR OF WORD IN CMND DATA 
CPNTR = START ADR OF NEXT oe IN CMND OR CR/LF ADR 
CDCNT = NUMBER OF CHARACTERS I 
DECBUF = START ADR OF 3 _BYT Fo oF DATA IN PACKED DECIMAL 
BINARY = ADR OF WORD WITH DATA IN BINAR 


CSCNSP EXIT: RO CONT ALN & ROR Be hae tOsT DA ATA BYTE IN WORD 


Re C 
CScN FLAGWORD (CSCF PHD) 
CSCNC Exit: ep CONTAIN BINERY WORD 
CSCNBS EXIT: Re CONTAINS 22 BIT BINARY WORD. 
CSCNCD EXIT: RO CONTAINS ADR OF ’DECBUF’ (DATA STORAGE) 


5 RERRRER ALLER ALLELE AERA ELLE REAL AA EARL LARA ELAR ERE RA ER RLES ART ERLLLE LE LEE 


CSCFWD: .WORD O ;SCAN S/R FLAG WORD 
; =1 ; CONVERT TO BINAR 
: =e ; CONVERT TO PACKED DECIMAL 
; 24 ; STOP SCAN ON MINUS SIGN 
SCFND= 10 ; DATA FOUND 
CSCTCS= 20 ; TRAIL Ie COMMA/SPACE 
CSCTMS= ; ING MINUS SIGN 


TRAILING 
CR/LF TERMINATOR 


40 
CSCRLF= 100000 





ca § 


etait 
WONT ULCUWIM-© 


5 


B 


RCI Loi neces ree anata avisitalsuisitah has 


Ll | Mahle 


SERS SRS SSERE EOS 


SIARERMRB sana 


A 
_ 


RR 


oes“s see esses 8eC6e3e—6CUUCUNUMCUCOUCUC!LChUC]TMUCU ]H UC ]TUhU OCU SD 


te Bt BR he Ft Be ee bb me pe be ee Hs Fenn feet eo pee Bn pee 


Sre 


be 
Tw 





MPG CONTROL ROUTINE 


SCAN ENTERTED COMMAND DATA S/R 


004767 


8 
ip 


as 


See 


ee 


003106 


000004 


000001 


100000 
77 


177602 
171044 


CSCNSP: 


CSCN: 


CSCNMS: 


10S: 


15S: 


20$: 


30S: 
40S: 


SOs: 


60S: 
70S: 


MACYL1 27(732) 


320m 


Setar EE 


IT Tl 


=z==3w 
oor 
<<wW 





PC, CSUPTR 


;SCAN ONLY ENTRY POINT 


Re 

CSCCOM 
#4. Re 
csccom 


#1,R2 
cStcom 


#2,Re 


R 
CPNTR RO 
0, (RO) 


“ 

i 

Bie, (RO) 

60 

#12, (RO) 
, (RO) 


#CSCFND, R2 

205 

#CSCFND, R2 

RO, CDST 
#CSCTCS+CSCTMS, R2 
708 


Ri 

RO 

10$ 

la 
aCSCTCS,Re 
30S 

#4, Re 

15 
#CSCFND, Re 
#CSCTMS, Re 
#CSCRLF , Re 
Re, CS 


SCFAD 
RO, CPNTR 
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;SET UP DATA POINTER & SCAN ONLY ENTRY POINT 


; INITIALIZE READ DATA POINTER 


;RESET OCTAL & DEC CONV FLAGS 
GO TO COMMON PROCESSING 

:SU FOR CK OF MINUS SIGN 

GO TO COMMON POINT 


;SCAN AND CONVERT TO 16 BIT BINARY (PACKED OCTAL) ENTRY POINT 


. IF NOF MM 
CSCNBB: 


. ENDC 
CSCNCB: 


;SET_ OCTAL FLAG & RESET DECIMAL 
GO TO COMMON PROCESSING 


;SCAN AND CONVERT TO PACKED DECIMAL ENTRY POINT 


CSCNCD: MOV 
CSCCOM: 


;SET DECIMAL FLAG & RESET OCTAL 
;CLEAR CHARACTER COUNT 

:GET CURR POSITION ADR OF DATA 
DATA CHAR A SPACE? 


M2ZwM2z 
< 


IT A LINE FEED? 
IT A MINUS SIGN? 
TA FOUND’ FLAG SET? 

THE ’FND’ FLAG 
; T ADDRESS 
it COMMA/SPACE7- SIGN’ FLAGS SET? 
“ADD 1 TO CHAR COUNT 
‘ADD 1 TO DATA ADR 
GO CHECK NEXT CHAR 
:*FND’ FLAG SET? 
; (Y,N-30$) 
*SET *TRAILING COMMA/SPACE’ FLAG 


3G0 CHECK NEXT CHAR 
;LOOKING FOR A MINUS SIGN? 


*¥ N=-15 

; “FIND” FLAG SET? 

ise! ILING MINUS SIGN FLG 
sgeT eal *CR/LF TERMINATOR’ FLAG 


;ST 
;STORE NEXT WORD/CR-LF ADR 


si aa 
73~.% 
< + 


32 
a ul i 
SOBAR Rae a Eng 
~OD ~~ 
2 


SEG 0065 








ol a hile 2 


QONOOOOOO0O0000000 


2 
% 


MPG CONTROL ROUTINE 


SCAN ENTERTED COMMAND DATA S/R 


010167 


171156 
171150 
000010 
000003 
031676 
000001 
031442 


175524 


177532 


CSCNEX: 


CSCNBB: 


CSCERR: 
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MOV R1, CDCNT STORE LENGTH OF THE WORD 
MOV CDSTAD, RO -SET UP RIGHT HAND END 
R00 R1,RO ADR OF DATA 

BIT #CSCFND, Re ;HAS ANY DATA FOUND? 

BEQ CSCNEX 


N-CSCNEX 
BIT 3,Re EITHER CONVERT FLAG SET? 


BEQ CSONE :(Y x) 
ISR RS ASDECO :GO’ CONVERT TO PACKED DECIMAL 


.WORD  CSCERR “CONVERSION ERROR ADR 

BIT #1 ae ;CON RT TO BINARY FLAG SET? 

BEQ CSCNEX :(Y,N-CSCV 

ISR RS. OCTBIN :G0’ CONVERT PACKED OCTAL TO BINARY 
.WORD CSCERR-. CONVERSION ERROR ADR 

RTS RS S/R EXIT 

IF OF MM 


;SCAN AND CONVERT TO 24 BIT BINARY (PACKED OCTAL) ENTRY POINT 
; INPUT & OUTPUT INFO SAME AS CSCNCB EXCEPT FOR Re 


JSR RS, CSCN ;SCAN THE NEXT WORD 
JSR RS; ASOCBN ‘CONVERT # TO BINARY 

.WORD  CSCERR-. 

RTS RS sEXIT IN-LINE 

.ENDC 5 
ISR * RS, CTYPE :GO REPORT CONVERSION ERROR } 


“HORD CERMOe-. 


MAINDEC=11-DTNGA-C MPG CONTROL ROUTINE MACYL! 27(732) 24-SEP-76 13:54 PAGE 20 SEO 0067 
DINGAC.Pil VALIDATE PROGRAM # S/R 
3090 .SBTTL VALIDATE PROGRAM # S/R 
Hes H SLSEREFLETERAESKALSKAAARASRALRAAKRELASERAEAESHASLELALAEFSRESLAELELERAZASS 
3094 : THE NeXT WORD N THE CMND DATA WILL WILL BE SCANNED AND VALIDATED 
3095 > ASAC FO EROGRAA NUMBER. | THE ADDRESSES GF ITS CONTROL 
3096 : ROUTING TABLE ENTRY AND 17" PROGR Aa Pa IF PRESENT, WILL BE 
3097 : STORED AT STANDARD LOCATIONS. ant AN INVA tO PROGRAM NUMBER, EXIT 
3038 : WILL BE MADE TO THE ERROR S/R TO REPORT THIS CONDITION. 
3100 > LINKAGE: JSR RS, CVPNUM SUBROUTINE CALL 
3:36 : DESTROYS REGISTERS: RO,R1,R2,R3,R4 
310M : EXIT: cURCT : RY = = ADDRESS OF OF CONTR OL ROUTINE TABLE ENTRY 
‘He KLFELARESKEKLSSEAALAFLSAAEALLASFSRRAKEAARERRRARELARESELASELALESESSELALASE 
3109 : 
3110 O10S04° 004567 177512 CVPNUM: JSR RS, CSCN :SCAN PROG 8 
31 010510" 004567 031634 SR RS: ASDECO :CONVERT IT TO PACKED DECIMAL 
au15 01051 : sag 031374 JSR RS ,DECEIN sCONVERT PKED DEC TO BINARY 
aie Gites cesar CVPNM1: TST ROO i1S IT 0? 
3116 010526’ 00141 BEO CVPER Y-CVPER 
3117 61050" cooo20 CMP RO, 8NAXPRG iM IT TOO LARGE? 
118 O10534° 101013 BHI CVPER Y-CVPER 
3119 01035: 1 MOV PC. RY : COMPUTE CNTRL ROUT TBL ENTRY 
131 cits D 023454 R00 aCRTBL-2- ; 
31 1peue ADD RO, RY 
| 3123 O10550° 010467 170702 MOV RY’ CURCTE ;STORE CNTRL ROUT ENTRY ADR 
| 3152 Since oltde? 170676 il ay 3 
Noss’ 
a8 Bicses* pous8s RTS RS’ SEXIT IN-LINE 
| 3128 Q10SEH* OONSE7 175434 CPER: JSR. RS,CTYPE ;GO REPORT INV PROG # ERROR 
' 3130 steed 176006 : l- sERROR MSG ADR 
| 3131 001 IF DF MM 
| 22 -SBTTL INITIALIZE MM PAR’S TO USER PROGRAM AREA 
sie ; LELELELLLELELALELELELSLESLLLLELLELAEL SELLE LARA EAERERSELE RELA RE RELA LES 
| 3137 : THIS OF R3 AS THE HIGH 16 BITS OF 
| 3138 : A ap hac ok PrR's WT g fora Thm 
i 3139 : PAGE R3 WILL CONT IN tore as HL. THE FIRST 
esi STORED et a A NS OF RS" 
te : WI ve Be” ay qecuRerir F 1 eRO” ENTRY, 
3143 : NO UTHER ACTIONS WILL T 
2145 : LINKAGE: JSR —- PC, UPAPAR S/R CALL 





me me ee oe ee ee ee 6 Se ee ee 1 eee =e 


nee we et ete 





ror 
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DTMGAC.P VALIDATE PROGRAM # SVR 
218 8 
3147 : DESTROYS RO,R1 - ALTERS 93 
tt : REFRSSSSSSSSSLSFAFSESERASESLSSEASEPSSFLESSFSLLAEZRALALALSLELALEFLAFELEFSS 
3151 
| 3152 UPAPAR: MOV R3, CURPTH 
3153 TST R 
3154 BEQ UPAPEX 
3155 MOV 8KPARY , RO 
3i56 MOV 83, 
2157 10$: MOV R3, (RO)+ 
3158 ADO 8200,R3 
3159 DEC RI 
3160 BNE 10$ 
| 3161 MOV SPHCONS. R3 
} 3ige MOV R3, CURPTA 
3163 UPAPEX: RTS C 
a 


oS .ENDC 


> -6-<0— B- B= B= » ~~ p— b+ 9 


= Bsa tad Zn ISSUE 


9 GIG) GI GIG) GG) GG) GI GG) GY GIG I GJ GI GI GI GI I GI GI I) GI) GI ILI WI 


SEGRRLGG LS SEVERE SELB tal tot 


SSNesnes 


a ee ee ee en oor 


NAV VS 
WO NOW © O 


s 


S 
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i SHIFT MIGHER PROGRAMS UP S/R 


-SBTTL SHIFT HIGHER PROGRAMS UP S/R 
haialalleleleleiahsielaiaiolleleleieisiaielelleieioiaieieieleleieiaisieleeleleisieieieieieleleisieleidicieeldleleisieieid 
THIS SUBROUNTINE WILL SEARCH THE CONTROL ROUTINE ae FROM 


ITS NT ENTRY TO_ITS END. ANY H 
ARE F THEY WILL RELOCA TO THE H 


nIGH 
LOREST meray optaete USER PROGRAM n,THE GON NTROL ROUTING. TRE TABLE 


ENTRIES WILL REFLECT THEIR NEW LOCATIONS 
LINKAGE: JSR RS , CSPGUP SUBROUTINE CALL 
DESTROYS REGISTERS: R0,R1,Re 
; EERE AL ER AREE ER RRR E EERE ERE EERE EEE ELE EERE RERE REESE EEE EEE EER EEE 


hh he ee ee ee ee TY 


o10s74" 016700 170656 CSPGUP: Noy ~ nGURCTE, RO GET CURRENT CNTRL ROUT ENTRY ADR 
TST CRTEXT(RO) s THIS A FIXED ADR PROG? 
BPL CSPNFP SPNFP 
MOV CENADR, Ri ict STone #a0e HI 16 BITS ADR 
MOV RI, (ROS ADR IN CTRL ROUT TBL 
CSPGSZ: MOV R1; CURPTH iS 
JSR PC’ CKF 3PG i STORE VAIL PROG AREA SIZE IN Re 
MOV #6; R1 ‘CONVERT IT TO A BYTE CNT 
S$: ASL Re 
DEC RI 
BNE cs 
SUB #2, Re sLOWER ADR TO BELOW THE BNDRY 
ADD 8P4CONS,, Re CONVERT IT TO A VIRTUAL ADR 
MOV Re, CVMEND :STORE IT AS VIRTUAL MEM END 
RTS RS ‘EXIT IN-LINE 
000 . ENOC 
010800’ 010046 CSPNFP: MOV RO, -(SP) ;SAVE ENTRY ADR 
010602" DO5D46 cLR - ae ) ;RESET THE 'SHIFT’ FLAG 
MOV CPAREA, CSPNPA s INIT NEXT PROG AREA ADR 
MOV CRMEND, CSPLFP sINIT LOWE OWEST FIXED PROG ADR 
MOV C :SE TBL START ADR 
a ADD sCRTBL-2-. ,RO :BEGIN Scan AT BEGINNING OF TBL 
010604" 005720 10S: 7° (RO)+ sINCR TO NXT TBL ENTRY 
10606’ 022710 177777 CMP 8177777, (RO) ‘END OF THE TABLE? 
010612" 001404 BEQ 20S :N, Y-20$ 
010614’ 005710 TST (RO) ENTRY od USE? 
010616’ 001772 BEQ 10$ 3Y,Ned 
001 -IE OF 
ist CRTEXT(RO) : THIS 8. FIXED ADR PROG? 
CMP RO, 2(SP) :BELOd ORG PROG SLOT? 
BLO 1 N, Y=] 
BEQ 16$ tat ORG SLOT? (N, Y-10S) 
MOV RO, (SP) ‘SET SHIFT FLAG 





me ne ee ree + | nee. 


so + thepeapag” 


ee 
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3228 
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£8 
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| 
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| 
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MPG CONTROL ROUTINE 


SHIFT HIGHER PROGRAMS UP S/R 


010016 
770 


170572 


170SSe2 


MACYL1 27(732) 


ruta CSPNPA 


BR 
128: MOV 
ADD 
BR 
IFF 
MOV RO, (SP) 
SR 10$ 
IFT 
1st:  ¢MP (RO), CSPLFP 
BHIS 
MOV (RO), CSPLFP 
DEC CSPLFP 
BR 10$ 
-ENOC 
20$: TST (SP)+ 
BNE ess 
MOV (SP)+,R1 
TST (R1) 
BNE O$ 
IF OF MM 
“IFF 
MOV CFMST, (RL) 
IFT 
MOV CSPNPA, (R1) 
. ENDC 
BR 
25$: MOV (SP)+,R1 
MOV (SP) 
MOV RY, -(SP) 
LIF OF 
_ IFF 
V CFMEND, RY 
IFT 
V CSPLFP,R4 
. ENDC 
30$: TST -(RO) 
CMP RO, RI 
BNE sos 
IF NOF MM 
MOV R4, CFMEND 
TST (R1) 
BNE 355 
MOV R3, (R1) 
35S: MOV (SP)+,R4 
MOV (SP) R3 
IF OF MM 
“TIFF 
40S: MOV (R1), CURPTA 
RTS RS 
IFT 
40S MOV (R1), RI 
BR csPcsz 
cos: TST (RO) 
30 
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SES 0970 
;G0 CK NXT ENTR 

eee Rie rer AOR OF AREA 

GO CK NXT SLOT 


;SET SHIFT FLAG 
:G0 CK NXT ENTRY 


sTHIS PROG THE LOWEST SO FAR? 
give I 
OINT I "3 iis Lou 22 WD BLK 
GO CK NEXT ENTR 

:*SHIFT’ FLAG SET? 


‘Get ORG TBL ENTRY ADR 
;FROG, ALREADY EXIST FOR ORG ENTRY? 


;SET UP START ADR OF FREE MEM 
;GET ADR OF NXT MEM AREA 
;G0 TO S/R EXIT 


GET ORG TBL ENTRY ADR 
SAVE WORK REG’S 


;GET END OF FREE MEM ADR 
;GET ADR OF LOWEST FIXEC PROG 


;DECR TBL ENTRY PNTR TO NXT LOWEST 
:BACK. TO ORG ENTRY? 


5 ’ 


;STORE NEW FREE MEM END ADR 
singe READY EXIST FOR ORG ENTRY? 


Oey op UP START ADR FOR THIS PROG 
RESTORE WORK REG’S 


;STORE NEW CURR PROG TBL ADR 
sEXIT IN-LINE 


;GET PROG AREA ADR IN 
;GO COMPUTE AREA SIZE ; texrT 


;IS ENTRY IN USE? 
308 
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SHIFT HIGHER PROGRAMS UP S/R 


378 001 iF OF MM 
TST CRTEXT(RO) iF IXED ADR PROG? 
3280 MI 30$ «N, Y-30$ 
3281 oo0 END 
$282 010714’ 011003 MOV (RO) ,R3 :GET PROG’S START ADR 
3283 001 IE OF MM 
3285 010716) 016302 000026 MOV PLNGTH(R3) ,R2 GET PROG: “EN ip : 
3569 B1RISG> Spesos ack ORS BN IDE Chef BY 
3288 010726’ 005724 TST (R4)+ 2 TO END Br Fare MEM ADR 
2289 010730’ 014344 60$: MOV -(R3),-(R4) ROVE WORD OF THE FROG 
3290 010732" 00S302 DEC Re sper WORD CNT BY 
354) tee nities MOV Bos a2 tEOMPUTE. mA FACTOR 
3293 010740" 160302 SUB R3,Re 
323% 010742’ 060264 000016 ADD Re, PROIOA(RY) ;ADJ ADR’S OF SHIFTED PROG 
3295 010746’ 060264 000020 ADD Re, PURIOA(RY) 
32% O107se" 060264 900022 ADD Re, PSRCST(RY) 
10756’ 060264 000024 Re, POBJST(R4) 
3298 010762’ 010410 MOV R4: (RO) ;SET UP NEW PROG ADR IN CTRL ROUT TBL 
3099 b1g7A; gos7s4 TST -(R4) “SET UP NEW END OF FREE MEM ADR 
$300 10766’ 32 Rs 30S :GO CK NXT TBL ENTRY 
3308 MOV CRTEXT(RO),R2 :GET PROG? S. LENGTH 
MOV RO, -(SP) :SAVE RO & 
3304 MOV R1,-(S5P) 
3306 JSR PC MOVPGU MOVE THE aos, UP IN MEM 
MOV (SP)+ Ri RESTORE RO 
3307 MOV P)+' RO 
3308 MOV 4, (RO) ;STORE ITS NEW ADR 
3309 DEC :POINT TO NXT LOW 32 WO BLK 
3310 BR 30$ :G0 CK NXT TBL ENTRY 
Bu 
3313 CSPNPA: .WORD 0 ;#;NEXT PROG AREA ADR 
2314 CSPLFP: :WORD 0 *#:ADR OF LOWEST FIXED ADR PROG 
2215 000 -ENDC 
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OWN & RECOMPILE S/R 


170406 


~SBTTL SHIFT PROGRAMS DOWN & RECOMPILE S/R 
hsialableleieiaiaieleheiaieileleleieieiaileleisiableleieisieleleieioielleleisieieeleieisieleieleideleieleeieieisield 


Wee AN CT CONTROL Fog cine Tee Tiete Eo exXierint ProcRars AND 
DETERRINGS IF THERE TecnTe’ Ther an 


Rare g SMIETED DOM TO ELININT “THE SE APERS. 


PR 
FLAGWORD FOR EACH PROGRAM WILL BE RE- INIT tal IZED. $0 THAT 
PROGRAMS CAN ONLY BE INITIATED BY THE “RUN” AND 
ALL PROGRAMS WILL THEN BE RECOMPILED. 
LINKAGE: JSR RS, CSDNRC 
DESTROYS REGISTERS: RO,R1,Re 


s RELRLEALAELALELELELELER EAL RA LLLAFELEA AKL AL RELA EE LAL AL EAL ALAA EEF EE 


SUBROUTINE CALL 


eee hh ee ee ee ee TY 


CSONRC: MOV 
MOV 


;SAVE WORK REG’S 


0 =(SP) 
MOV RS’-(SP) 
CLR -( 8p) sRESET ‘END SHIFT’ FLAG 
MOV CPAREA, RS s INITIALIZE PREV PROG END ADR 
TO START OF PROG AREA 
IF OF MM 
MOV RS, (PC)+ ori HIGHEST MPG PROG ADR 
HIMPGP: -HORD 0 
10$: MOV PC, RY ;SET_UP START ADR OF CNTRL 
ADD #CRTBL-. ,R4 : ROU 
20$: TST (RY) j THIS ENTRY IN USE? 
a MM sdb 
CLR CRTEXT(R4) sHSKP ITS TBL EXTENSION WORD 
30$: TST (R4)+ sINCR TO NXT TBL ENTRY 
CMP #177777, (RY) ‘END OF CNTRL ROUT TBL? 
BNE 20$ ?¥, N-20S 
TST (SP)+ j END SHIFT’ FLAG SET? 
BNE 40S ?N.Y=4 
MOV RY, -(SP) ioe END SHIFT FLAG 
TE EOF sa 
MOV CRMEND , CFMEND SET FREE MEM END TO REAL MEM END 
HOY ,CFMST MOVE PREV PROG END TO FREE MEM START 
JSR PC, FINDFM a DETERMINE FREE MEM AREA 
MOV RO, CFMST :STORE ITS START ADR 
ADD RO,R1 
DEC Ri 
MOV R1, CFMEND :STORE ITS END ADR 
JSR PC; SUMIFM -SET UP MIDL & FREE’S ADRS 
BR 10$ GO DO SECOND PASS OF TBL 


MAINDEC-11-DTNGA-C 


MPG CONTROL ROUTINE 


MACY11 27(732) 


24-SEP-76 


13:54 PAGE 22- 


-SEP- 1 
DTNGAC.P11 SHIFT PROGRAMS DOWN & RECOMPILE S/R 
3373 011050’ 012605 40$: MOV (SP)+,RS sRESTORE WORK REG’S 
3374 011052’ 012604 MOV (SP)+/RY 
75 011054" 018603 MOV (SP)+°R3 
76 011056’ o& RTS RS sEXIT IN-LINE 
3377 011060’ 011493 SoS: MOV (R4),R3 ‘GET THIS PROG TBL ADR 
3378 001 LIF OF MM 
3373 aes JR PC, UPAPAR :MAP KERNEL’S PAR’S TO USR PROG 
et ll 716 TST (SP) ;*END SHIFT’ FLAG SET? 
3382 pt DES ff 141i BEQ 60S ‘Y N-60$ 
011066’ 011463 ooc004 MOV (R4) , PFWADR(R3) ‘STORE FLAGWORD ADR IN PROG TBL 
3 001 IF OF MM 
3385 JSR PC, MAPUPG “MAP USER’S PAR & PDR STORAGE 
3386 MOV (R4), (PC)+ ‘GET HIGH 16 BITS ADR 
3387 2: .WORD  XXXx’ 
3388 JSR RS, G2eBAD -CONVERT IT TO A 22 BIT ADR 
3389 .WORD 5S26-. 
3390 MOV Re, PGABAD sSTORE PROG’S ABS ADR 
3391 MOV RO, PGABAD+2 FOR COMPILER USE 
3392 MOV R3,R1 “POINT AT STORAGE AREA FOR 
3393 ADD #PRDIOX,R1 :18/22 BIT ABS ADR OF RDIO 
33904 MOV R2, (R1)4 :STORE HIGH BITS OF BASE 
3395 MOV PROIOA(R3), (R1) :STORE RDIO DISPL 
32% ADD RO, (R1) *ADD IN LOW BITS OF BASE ADR 
3397 ADC -(R1) 
3398 ADD #8. ,R1 sPOINT AT WRIO STORAGE 
3399 MOV Re. tR1)+ ; STORE HIGH BITS OF BASE ADR 
3400 MOV PWRIOA(R3), (RL) >STORE WRIO DISPL 
3401 ADD RO, (RL) :ADD IN LOW BITS OF BASE ADR 
3402 ADC -(R1) 
| 3403 BIT #UNIMAP, CSYSFW i HE USING THE UNIBUS MAP? 
3404 BEQ Ses : 
3405 TST PUBMAP(R3) Odes PROG USE UNIBUS MAP? 
3406 BEG : 
3407 MOVB § PUBMAP(R3),RI cer 1ST MAP REG # 
3408 ASL Ri ; COMPUTE DISPL INTO UNIBUS 
3409 ASL Ri :MAP REGS 
3419 ADD #UBMAPO, R 
3411 MOVB § PUBMAP+1(R3),-(SP) GET # OF MAP REG BITS 
Mile CMPB s«( SP), #3 *HOW MANY REGS BEING USED? 
3413 BLO cus ‘BR IF 1 
3414 BEQ 535 *BR IF 2 
; 34S SUB #3, (SP) “ADJ FOR 3 REGS 
| Bulb S3$:  DECB (SP) "ADJ FOR 2 REGS 
| 3417 S4$: MOV RO, (R1)+ *STORE UNIBUS MAP REG VALUE 
| 3418 MOV Re; (R1)+ 
| 3419 ADD #20000, RO ;POINT TO NEXT 4K WORDS 
3420 ADC Re 
| 3ye1 DECB 2Ss«( SP?) ; DONE ALL REGS? 
| 3422 BNE 54s 
3423 TST (SP)+ ‘NSKP 
| 3424 MOVB § PUBMAP(R3),R2 eT 18 K UNTBUS MAP REG & 
sie6 CLR RO 
26 MOV #3,R1 ;SET UP LOOP COUNT 
| 3427 StS: ASR R2 ‘CONVERT REG # TO UNIBUS MAP 
| 3428 ROR RO REG SELECT BITS 
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DEC 
3453 BNE 
a3 MOV : see UNTMAP REG SELECT BITS FOR 
MOV R P MA+2 i RORE LER 
3433 MOV “POINT AT STORAGE AREA FOR 18 
133 ADD ROABTOV Ri ‘BIT VIRT AORS OF RDIO & WRIO 
MOV Re, (RL) etre HIGH REG SELECT BITS 
S13 MOV PROIOACRS), (Ri) STORE RDIO OISPL 
3 ADD RO, (R1) ‘ADD IN LOW REG SELECT BITS 
3438 ADC Ral) 
33 ADD #8. ,R1 :POINT AT WRIO STORAGE 
2440 MOV 2. tR1)+ ‘STORE HIGH REG SELECT BITS 
3441 MOV PWRIOA(R3), (R1) -STORE WRIO DISPL 
3442 D 1) “ADD IN LOW REG SELECT BITS 
3443 OC -(R1) 
3445 011072" nao 000100 S8$: BIT #OCPRES, (R3) THIS PROG ALREADY HAVE OBJ CODE? 
3446 BLO76" 001747 BEQ 3 -¥,N-30$ 
3447 “IE OF MM 
aug 011100’ 005013 CR (R3) sRESET THIS PROG’S FLGWD 
Suet BIC $177777-USEUBM, (R3) sHSKP THIS PROG’S FLGWD 
3452 000 ENDC 
3453 011102’ 004567 003722 JSR RS, COMPIL ;G0 RECOMPILE THIS PROG 
3454 011106’ 000743 BR 5G0_Ck NXT TBL ENTRY 
3455 011110’ 016301 000026 60$: MOV PLNGTH(R3) ,R1 GET PROG’S LENGTH 
3456 011114’ 001002 BNE 65S “LENGTH = 0? (Y,N-65S) 
3457 011116’ 005014 CLR (R4) ‘RESET ITS CTRL’ROUT TBL ENTRY 
3458 001 IF OF 
| 3459 “IFF 
3460 011120’ 000736 BR 30S GO CK NXT PROG 
3461 011122’ 020305 65S: CMP R3, RS PROG’S START ADR = PREV PROG END ADR? 
3462 011124’ 001002 BNE 70$ ;¥,N-7 
3463 011126’ 060105 ADD R1,RS PROG LENGTH TO ITS START ADR & 
3464 : SAVE BS PREV PROG END ADR 
3465 011130’ 000732 BR 30 ;60 CHECK NEXT PROG SLOT 
3466 011132’ 010302 70$: MOV R3, Re “COMPUTE RELOCATION FACTOR 
3467 011134’ 160502 SUB RS,Re 
3468 11135" 1e0eb3 000016 SUB R2,PROIOA(R3) at PROG TBL ENTRIES TO NEW LOC 
3469 011142" 1 000020 SUB Re, PARIOA(R3) 
3470 011146’ 160263 000022 SUB R2,PSRCST(R3) 
ai71 O11i5e" 10263 000024 SUB Re, POBJST(R3) 
4 11156’ 1 ROR Ri ;DIVIDE PROG LENGTH BY 2 
3473 011160’ 010514 MOV RS, (RY) -SET NEW PROG ADR tN CNTRL ROUT TBL 
3474 011162’ 01 80$: MOV (R3)+, (RS)+ ;MOV_ 1 WORD OF PROG 
3475 011164’ 005301 DEC Ri *DECR WORD COUN 
| 3476 011166° 001375 80S -CNT = 0? (Y,N-80S) 
zi 011170’ 000712 R 30$ GO CHECK NXT PROG SLOT 
| 3479 CLR CRTEXT(RY) sRESET CNTRL ROUT TBL EXT 
3480 BR 360 ck NXT PROG 
18 65S: Ist CRTEXT(RY) THI A FIXED ADR PROG? 
3483 CMP (RY), RS phos? S START ADR = PREV PROG END ADR? 
| 2484 BNE 70$ -Y,N-70S 
| 
| —_s 


Lewes — a 


ee 


ralnoec -11-DTMGA-C 
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TMGAC.P11 SHIFT PROGRAMS DOWN & RECOMPILE S/R 
3485S ALD 
3486 
at QR 
88 70$: MOV 
3489 JSR 
3490 753: MOV 
3491 80$: JMP 
3492 " 
3433 PGABAD: .WORD 
3494 . WORD 
3495 PGUBMA: .WORD 
2496 . WORD 
3497 000 ENDC 
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CRTEXT(RY) ,RS 
75 
CRTEXT(RY) ,R3 
PC, MOVPGD 

RS’ HIMPGP 

30$ 


0 
0 
0 
0 
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;ADD_ PROG LGTH TO ITS START ADR & 
SA VE_AS PREY PROG ADR 


;G0 STOR NEW _ADR 

; GET PROG’S LENGTH 

;MOVE THE PROG DOWN 

SSTORE AS HIGHEST MPG PROG ADR 
:GO CK NXT PROG SLOT 


;UP TO 22 ait ABSOLUTE a (16 - 21) 


SOF CURRENT PROG’ (O- 1 
CURRENT PROG’S UNIBUS MAP (16 & 17) 
sREG SELECT BITS (O - 15) 


SEO 0075 













3499 
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ARRAN RARER 
DONO U £WleO 
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3543 011266’ 
3544 011270 
sus Oller 
es tlie 
3548 011306’ 
3549 011310’ 
3550 011314" 
3551 011316’ 
355e 011320’ 
3553 011322’ 
3554 011326’ 


| 
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-SBTTL REQUEST DEVICE & INT ADR’S S/R 


| RRRKRE REEL E EERE EERE E REALE EEL EEE EE ERLE ALE LE EAE REE EEE LER ERELELERER 


Sh te eed et hh | 


’ 
; ek 


CROADR: CMPB ar 


THIS S/R USES A 4 WORD AREA AS INPUT. THESE WORDS SHOULD 
CONTAIN THE DEV REG ADR, INT VECTOR ADR, SINGLE OR READ 
INT PROCESSOR STATUS WORD, AND WRITE INT STATUS WORD 
(OR A WORD OF ZEROS) in THAT ORDER. REG R4 MUST CONTAIN AN 
ADDRESS THAT POINTS TO THE FIRST WORD. 


THE THREE QUERY MESSAGES WILL BE DISPLAYED WITH THE 
EXISTING DATA BEING TAILORED AND INCLUDED. T 

MAY MAKE AN ENTRY THAT REPLACES THE EXISTING DATA OR MAKE A 
NULL ENTRY WHICH CAUSES THE EXISTING DATA TO BE RETAINED. 
LINKAGE: JSR RS, CR@ADR SUBROUTINE CALL 

INPUT: R4Y MUST CONTAIN ADR OF DEVICE’S 4 INFO WORDS 
DESTROYS REGISTERS: RO,R1,Re 


RERKLEAL EAL ERLE ELAR LEAL LREL ELLA ARAL LAA EAE RELA RA RAL ERA LER LE ALE RES 


ee FEED TERMINATE PREV REPLY? 


BNE -Y N-2$ 
JMP x :GO TO EXIT - BYPASS REQUESTS 
2s: MOV R3,-(SP) :SAVE WORK REG’S 
MOV RY; -(SP) 
MOV RS, -(SP) 
: CLR -( 8p) ;RESET LOOP CNT 
S$: MOV #CRODRM-CROLNK, R3 :SET UP ADR OF FIRST MSG 
MOV :SET UP ADR OF DATA IN 1ST MSG 
ADD #CRQDRD-. , RS 
CRONXM: MOV PC, Re ;SET UP LINK INFO ADR 
ADD #CROLNK-. ,R2 
MOV R3, (Re) + ;STORE MSG ADR IN LINK INFO 
MOV #i1., (R2) *SET UP MSG ONLY LENGTH 
MOV )’RO ‘GET PRESET DATA WORD 
CMPB sa, (SP) “THIS BUS REQ MSG? 
BEQ 3N, Y-10$ 
ADD #9. , (R2) “SET UP MSG 8 DATA LENGTH 
MOV Ri :SET UP OUTPUT ADR FOR S/R 
ISR RS’ BINASI GO CONVERT DATA TO ASCII 
BR OLPT -GO ISSUE DEV REG OR INT VECT MSG 
10$: ADD #6. . (R2) *SET UP BUS REQ MSG LNGTH 
JSR R3, CROCTA :CONVERT FIRST PS WO TO ASCII # 
MOV ecR4) , RO :GET WRITE PS WORD 
TST ANY DATA? 
BNE 20S :N, Y-20$ 
MOV #40,R1 “CLEAR 2ND BR TO SPACES 
MOVE -R1, (RS)+ 
MOVB = RI 
BR CROLPT GO ISSUE SINGLE BR MSG 
20$:  MOVB #054, (RS)+ : MOVE 
JSR R3, CRACTA ‘CONVERT SECOND PS WD TO ASCII 
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CROLPT: 
CROQLNK: .W 


ess: 


30S: 


40S: 


44S: 
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RS, CTYPE 
42 


R 
RO, (R4)+ 
#400, (SP) 


CSCFWD 
62$ 

#400, (SP) 
#T RO 
4a 

RS, CTYPE 
CERM2S-. 
CROLPT 
(SP) 


Sus 
RO, #160010 


#20. ; 
#012, aCPNTR 
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; ISSUE INFO REQUEST MSG 


; ISSUE READ FOR THE REPLY 


; INITIALIZE READ DATA PNTR 
:SCAN F PLY 
sANY DATA ENTERED ON REPLY? 


60$ 
‘CONVERT DATA TO BINARY 


s THIS BUS REQ MSG? 
:Y N -44S 
s VALID BUSS REQ #? 


~40$ 
: TSSUE "INV BR’ MSG 


;GO_ ISSUE MSG AGAIN 
SET UP PS WORD 


;STORE NEW PS WORD 
jHAS | THIS @ND PS WORD? 


ite” THERE ANOTHER BR # ENTERED? 


it ae 

*SET SECOND PS WORD FLAG 

*GO PROCESS SECOND PS WORD 
ADR ODD? 


i1S MEM 
4B$ 
‘ Técue "ODD ADR’ ERR MSG 


;GO RE-ISSUE MSG 
;THIS DEV REG ADR MSG? 


?Y N-54 
i15 ADR IN DEV REG RANGE? 


:N. Y-S8S 
: ISSUE INV ADR RANGE’ MSG 


;GO RE-ISSUE MSG 
i1S ann INT VECT RANGE? 


N- 
ORE ENTERED DA 


sot TA 
;INCR TO NXT STORAGE ADR 
To LOOP COUNT 


fe ' 1 


iaey T TRILORED OR DATA PENT TO NXT MSG 
;LINE FEED TERMINATE PREV REPLY? 
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#60, RO 
RO, tRS)+ 
R3 
RS, CTYPE 
702 


CERMO2-. 
CROLPT 


24-SEP-76 13:54 PAGE 23-2 


QNXM 
TAKE FLGWD OFF THE STACK 


;EXIT IN-LINE 


; ISSUE DATA CONV ERR MSG 


;GO ISSUE MSG AGAIN 














SEG 0078 





70$ 
‘oon. ALL MSG’S? 


sRESTORE REG’S 





;CONVERT PRIORITY FIELD TO 
:T0 A 1 DIGIT ASCII NUMBER 


;STORE BUS REQ # IN MSG 
sEXIT IN-LINE 
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000544 
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167576 
176200 
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167464 
176066 


176050 
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“Sabaeialeieahaiadaiabaiabaiabahabaiabaiabainiahabaiiaiaiaisialaichaiaiainiaiaiainiaisinisiaisinisinisiaisisisinisisisinininiais 


THE CURRENT 


LINKAGE: 


INPUT: 


eh eee th Le te ee i i te Te 


CLDEVR: had 


OV #CIOALT’ WRIOSZ 
CMPB = #012, JCPNTR 
BEQ LD 
MOV #"RD, CIOSZM+1 
CSZREQ: JSR RS CTYPE 
. WORD 
“WORD CTOs. 
"WORD 14. 
JSR RS. ICTRD 
.WORD CCMDRD-. 
"WORD 30. 
JSR RS. CSCNSP 
BIT #CSCFND, Re 
BEQ 11 
JSR RS, ASDECO 
.WORD  CLDER3-. 
JSR RS, DECBIN 
.WORD  CLDER3- 
BIT #1, RO 
BEQ obs 
INC 
100$: CMPB 4#’R,CIOSZM+1 
BNE 1108 
MOV RO, RDIOSZ 
105$: CMPB  sOl2.aCPNTR 
BEQ DPOR 
MOV #"WR, CIOSZM+1 
nos; fy Blafos 
BR CLOPOR 
115$: CMPB  #'°R,CIOSZM+1 
BEQ 105$ 
IF OF MM 
“IFT 


DESTROYS REGISTERS: 
5 EH ERR ERA A ER KR EEE EERE EEE EER EER EEE EEE 


THIS S/R WILL LOAD pis | SPECIFIED DEVICE ag FROM THE 
My STEM On DEVICE A 


IMMEDIATELY le 


PLACE IT IN MEMORY 
PROGRAM TABLE. ad ES OF CERTAIN PROGRA 


REN 
TABLE ENTRIES WILL ALSO OCCUR. 
BE USED TO UPDATE THE DEV ROUTINE? S DEVICE ADR’S. 


JSR RS, CLDEVR 
.WORD  ERRADR-. 
“WORD AERO. 


"REQUEST ADR’S’ S/R WiLL 


SUBROUTINE CALL 
INSUF MEM REL ERR RET ADR 
DEVICE ERROR REL ERR RET ADR 


R3 MUST CONTAIN ADR OF CURRENT PROG TABLE 


#CIOALT,RDIOSZ 


RO,R1,Re 


; INITIALIZE I/0 AREA SIZES 
Tete PRESET MESSAGES? 


-CLDPDR 
STWITIALIZE MSG TO “RDIO” 
ISSUE REQ MSG 


; ISSUE RD FOR THE REPLY 
;SCAN FOR THE REPLY 

zDATA RECEIVED? 

CONVERT DECIMAL DATA TO BINARY 


we AN OOD SIZE ENTERED? 


:MAKE IT EVEN 

j THIS ROIO MSG? 

SAVED A AS RDIO SIZE 

iLINE PEED TERMINATE RDIO REPLY? 
DPOR 

CET UP FOR WEIQ MSG 


One 
t STORE DATA AS WRIO SIZE 
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167514 
bees 20S: 
165553 
165546 
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ONTROL ROUTINE 


A 
v 


MPG 


-DTNGA-C 


1] 


NAINDEC- 





LOAD DEVICE ROUTINE S/R 


DTNGAC.P11 


> 
<3 ea 
z= bee 
Ss fe | 
oy se & 
eh o> 2s 3 
we «60es|COOE 8 
Oo w 
Fe vs “py &: 
_— > bere ae | 
<2 te “Hoo. 
S $23 48 tie oy 
er] he ee. = 
Negi gach tin, 
-O ozraereT _— 
-— 1 ne 4 ze i l ooed 
> zee > zee 


Sa eS ee 


y 
1 w 
& & 
mH & 2 
‘gos £ & Be 
~ £2 ys. o~ “Ee 
20 i805 WEROSES 


-o& cro r-or-oa>r--o>>> 
Pw F RBS OnGSalsssss 


40S: 


OCo0S4 02:714 30S: 


; ISSUE MSG WITH FILENAME 


5 8 Rae 


Som ee ee hee hoe) 


Ronee 


md ms od 
[alo] =] 


ST DEV INFO CHANGES 
H 
V 


RY 
UP 
INFO 

QUE 
ry 

NT AT 
UP 


ADR OF DEV ROUT 


& 


ad Soe = 
VES eoEs B+ 
sekoer 


a 


m4 
a 
a) 
oO 


gE 


Pi 


3 STORE Pours 3 ITS START ADR 
re 

;GET REL OR VIRTUAL ADR 

;PAGE 6 ADR? (N, Y-CLOBAS) 


sein 
aPtLerHs 


o 
- 
a 


»RO 
DEVIOB,Re 


»R1 


(RO)+ 


ap 
misecmranatms ose 


-_rereoeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeaeee se 


LAURNR RRO Naame 


Dd hd ad a nh ad ad ad Oh Od ad ad ad ad Od ad ad ad ad ad a Od dd hs 


PeRR RA 


tn ie en hate nate) 


290090 00009000000000000000009000000000000 


BES SERS RS ERD R SESE BEBRBE SB SBASBNBAERRESOSBRSERBRO BEES 


nn ne te ne ee ene ee ee 


USE UNIBUS MAP FLG 


HE UNIBUS MAP? 
IF PROG WILL RUN 


EXIT 


Pee, ROUT NEED UNIBUS MAP? 


~CRQUBM 


; Ly | a 
ay 
Y 
: 


ise 


iN. 
G0 
;G0 
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3803 CRQUBM: MOV PSRCST(R3) ,RO GET SIZE OF DEV ROUT + RDIO + WRIO 
3804 BIC #P4CONS, RO “RESET PAGE BIT 
3805 MOV #1,R1 INITIALIZE # OF BITS FOR REGS 
3808 MOV RI Re SET UP BINARY ® OF REG S 
330 cos: SUB #8192. ,RO ‘DECR SIZE BY 4K WORD 
3808 BLE css ‘FND AREA END? (N,Y-55S) 
3308 ast Ri ‘ADD ANOTHER BIT TO # OF REGS 
3811 INC Re :ADD 1 TO BINARY 
3812 BR SOs GO CK FOR ANOTHER REG 
3813 SS$:  MOVB  R1,PUBMAP+1(R3) ‘STORE & OF REGS NEEDED IN PROG TEL 
2814 MOV #3). cL SET UP MAX VALUE FOR THIS 
3815 SUB R2, CL :# OF REGS 
316 BIS #60, Re ‘ s CONVERT BIN f,10 ASCII 
3818 CLOAUB: JSR Re,ct “ASK FOR 1ST UNIBUS MAP REG 
3820 “WORD  UMRGRO-. 
sce ist ae Re, acrRO s ISSUE READ FOR REPLY 
5 ior ' Be cscnsp ;SCAN READ DATA FOR REPLY 
| 3826 BIT 8CSCFND, Re 5 <CR) OR LP? ONLY ENTRY? 
54 a JSR BE ASDECO CONVERT IT TO PACKED DECIMAL 
| 380 ie fe oecain ;CONVERT PKED DEC TO BINARY 
| 3832 CMP cLOERY ; :15, #< 7? 
| 3833 BLO CLOERS Y-CLOERS 
| 3834 epee CMP RO, (PC)+ ite > MAX VALUE? 
=e ” BHI : CLOERS :N, Y-CLDERS 
| 3837 MOV RO, -(SP) :SAVE BINARY REG 8 
3838 nove PUBNAP +1(R3),R2 :GET 8 OF se TS 
| 3649 SUB #6, RO CLEAR HI 2 FOR BIT POSITION 
| 3841 60S: DEC RO *SHIFTED BITS ENOUGH? 
| 545 eSL Re iT 8 rs ONE POSITION 
| B45 BR 60S :GO0 CK eT SHIFT CNT 
| 3e%6 65S: IT 1, MAPMAP sANY OF HIGH REGS IN USE? 
3847 BNE CLOERS : 
ae48 IT Re  RAPHAP+2 HOM LOW REGS? 
| 3850 CLOUME: BIS RI, AAPNAP Sey ae FOR THIS PROG’S “BES 
| Be HOV {S84 PUB CR) Noe Te Tree BIN N& eons PROG TBL 
3e54 CLOUMT: MOV 87, -(SP) Mt MALZE 1S] RES x 
Rove Pub 41(R3),R2 
sey MOV #24. RO ;SET UP MAX # OF SHIFTS ALLOWED 
2858 CMP Re, #3 HOW MANY REGS NEEDED? 


a = ewe ee oe ee 





me n= eo ee + — a cr re renee — ee ee cee ce ee arte en ee. cS ES ES SES 
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SEO 0082 





TNGAC.Pil LOAD DEVICE ROUTINE S/R 
3959 BLO 75$ :BR IF 1 
BEQ 70$ ‘BR IF 2 
l DEC R ‘ADJ FOR REG 
70$: DEC R ADT F REG 
758: BIT RI. MAPMAP ‘BITS IN USE IN HI REGS? 
3864 BNE :N. Y-80$ 
3865 BIT R2, MAPMAP+2 ‘BITS IN USE IN LOW REGS? 
3866 BEQ g0$ ry N-90S 
3867 80$: DEC RO ‘DONE ALL SHIFTS POSSIBLE? 
3968 BEQ CLDER? ?N, Y=CLDER? 
3 INC (SP) ; UMP UP 1ST RE 
33 ASL SHIFT TO NEXT OUP OF REGS 
3871 ROL RI 
3872 BR 75$ :GO_CK NEXT GROUP OF REGS 
3873 90$: MOV (SP). RO ‘GET REG # 
3874 JSR RY, SREG :SAVE RO - RY 
3875 JSR PC, CPNAS1 ‘CONVERT REG # TO DECIMAL ASCII 
3876 MOV RI; UNRGNM :STORE REG # IN MSG 
JSR RS’ CTYPE ‘DISPLAY # OF REG SELECTED 
3878 .WORD 600 
3879 ‘ - 
3880 ISR RY, RREG RESTORE RO - RY 
1 CL :60 TE REG MAP 
soa 12464" me CLDEX geno PTLGTH+DEVIW7(R3) ;RESET 
3Be3 Bisusg: Beache | Sonees Soa TEE He ee REP abh'g 
3885 012474" 000205 RTS RS EXIT IN-LINE 
Se oe 
3888 012476’ 061505 CLDER1: ADD (RS), RS ;SET UP ERR RET ADR 
3889 012500" 000205 RTS RS ‘EXIT TO ERROR ADR 
3890 OieB0e" 005726 CLDER2: TST (RS)+ ;POINT BT DEV ERR RET ADR 
3891 012504" BR CLDERI GO TO E 
3892 012506’ O04S67 173512 CLDER3: JSR RS, CTYPE “ISSUE DATA CONV ERROR 
3893 Oicsie’ ’ 702 
3804 012514" 1 s CERMO2-. 
3895 012516’ 000167 177152 IMP CSZREQ GO RE-ISSUE MSG REQUEST 
3896 001 IF OF MM 
3897 CLDER4: JSR RS, CTYPE ISSUE DATA CONV ERROR 
3898 . WORD 
3899 “WORD  CERMO2-. 
3900 BR CLDERT :GO RE-ISSUE UB MAP MSG 
3901 CLDERS: JSR RS, CTYPE tISSUE INV REG # MSG 
3902 .WORD 712 
3303 "WORD  CERM39~-. 
3904 BR CLDERT :GO RE-ISSUE UB MAP MSG 
$30 CLDER6: JSR CTYPE ISSUE REGS IN USE ERROR MSG 
3907 “WORD CERMYI1-. 
3308 CLDERT: Np CL :60 RE-ISSUE UB MAP MSG 
39093 CLDER7: TST (SP)+ *HSKP 
3910 JSR RS, CTYPE ISSUE INSUF REGS AVAIL MSG 
3911 .WORD 20 
3912 “WORD  CERMYO- 
2913 900 “ ENDC 
3914 





prcventsasessesaremninisinsahtOSN 
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SEG 00284 


3315 
1 IF _NOF M 
3319 : o22e40 CLOTBL: .WORD C1OBSY=CLDBAS 
sis Glee Sei Be rates 
: peal WORD ct ieT-ctpeA 
. Bee WORD Bt -CLDBA 
” 026514 WO! BTASLZ-CLDBAS 


BURP eat 


QOOOOCOOOO0000000 
b2 0 fe ht Pe ft pe fm he be he he pe 
7--wwewwem6Ue7se se © 

4 

w 

AA 

e'e's 

w 


~ WORD PUTBYT-CLDBAS 


CLOTBL: .WORD *CroBSY-PGEBASPECONS 7ALL LABELS CONTAINED IN THIS 
; tg he ; TABLE MUST HAVE A MEMORY 
-WORD ULIST-PG&BA+PECONS spp Ss! WHICH IS HIGHER THAN 


“HORD ee 


2 eee 


PUTBY-PGEBRYPECONS 





PSE ESES ESCM eMer viii! 


000 SENDC 


ee em ee es ee ee Ee Ee TE 


Sn | 


z 
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oO 
vi 
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FOR AIRIINS 


BESciVPERESRREPCCLC LAL RERERERERR ta 
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012560’ 052767 
012566’ le 
004567 

16? 


ze 


2s 
BRED 


Se eee 


010704 
062704 





020000 


175422 
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166726 


000001 
000001 


027652 
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166656 


166630 
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-SBTTL VALIDATE MODEL NAME & DEV #’S S/R 
heleiaiaialeieleleleleleieleieleieieiaieisieieieeleleieieieisieieleleieieleleleieieisleleleieieieieieideleieieieleielsieldiie 


THIS t one act MetY i READ-IN AREA AND ay TO cto 
ENTRY PO POINT ¢CV Ste tre "PODEL Ne HAS ALREADY” BEEN SCANNE SCANNE 


Hs WALID MOOEL Na Re TARE a aD anand MILL Be ace D 


SIXTEEN O BeVICE ia Air ANY NY ARE POUND. They WiLL BE BE PSTORED. 
“CMCDVN™ ALSO. 


LINKAGE: JSR RS,CVLMD1 “ASSIGN” S/R CALL 
) JSR RS; CVLMDe “ENTER” S/R CALL 
DESTROYS REGISTERS: RO,R1,Re 


inh te ee i ee ee 2 TY 


PUPPET TT TTT TCT TTT TTT TT TTT TT TTTTeTTT TTT TT Terr TTT TT Trt TT Tre T TTT TT 


CVLMD1: BIS 8CVLFLG, CRFLGW :SET THE TRIALING OPERAND FLAG 
BR CVLCOM :GO TO COMMON PROCESSING 
CVLMDe: JSR RS, CSCNSP SCAN FOR THE MDL NAME 
BIT ACSCFND, R2 “WAS ANY DATA FOUND? 
IMP CVLER ISSUE ERROR MSG 
Ss: BIC #CVLFLG, CRFLGW :RESET Th ILING OPERAND FLAG 
CVLCOM: CMP #4,R1 ;MOL NAME 4 CHAR’S? 
BNE CVLER2 rY N= ~CVLER2 
MOV PC, RO :SET UP MDL NAME TBL START ADR 
ADD SCMDLNM-. , RO 
10$: MOV CDSTAD, Ri T KEYBOARD DATA START ADR 
TST 4(RO) ERO OF THE MOL NAME TABLE? 
BMI CVLER2 CVLERO 
MOV #4. Re CET UP COMPARE COUNT 
20S CMPB OS s«(ROD) +, (R1) + sDAT A CHAR = TBL CHAR? 
BEQ 308 : 
ADD Re, RO ‘POINT TO NXT TBL ENTRY 
BR 10 GO CK NXT ENTRY 
30$: DEC Re :DECR CHAR CNT 
BNE 20S ‘CNT = 0? (Y,N-20S) 
MOV R3,-(SP) :SAVE WORK REG’S 
MOV RY; -(SP) 
MOV PC’R3 ;SET UP STORAGE ADR 
ADD SCAMCDVN-. ,R3 
MOV (RO), (R3)4 ;STORE MODEL CODE BYTES 
CLR )+ RESET DEV # PNTR & CURR DEV 8 
MOVE 1(RO),Re *GE 1.0. CODE DISPL VALUE 
BIT j THIS A DEFAULT MOL NAME? 
NE LTMN *N, Y-DFLTMN 
MOV PC. RY ‘AbD IN TBL START ADR 
ADD #OLDTAD-. , RY 


SEG O0as 
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DVRID: . 
DFLTMN: 


M 
DVNUMI: . 
3ss: 


385: 
40S: 





(R4) Re 
RY_R 

(R2), (PC)+ 
XXXX 

#16. ,R4 
#-1,(PC)+ 
CSCFHD 
60S 


RS, CSCNMS 
#’ t ICOSTAD 
80$ 


RS, ASDECO 
CVLER3-. 

RS DECBIN 
CHCDVN =(SP) 
(SP)+, #23000 
38S 


RO, #77. 
CVLERS 


#-1,DVNUM1 
$ 


RO, (R3)+ 
#CSCTMS, CSCFWD 
355 


pt DVNUM1 
RS, CVLFIL 


CMCDVN+4 , CMCDVN+3 


RS, CVLFIL 
o$ 
CVLR3A 
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: SAVE vas }.0, 
‘DEV ROUT 1.0: CODE WORD 
SET UP DEV # CNT 

‘RESET FIRST DEV & OF STRING 
‘FIRST DEV &# OF A STRING 

; ANOTHER OPERAND IN CMND? 
;¥,N- 

:SCAN FOR DEV # 

‘FIRST CHAR OF WORD = “T"? 


;N, Y-80$ 
‘CONVERT IT TO BINARY 


;GET DEVICE’S os CODE 


:THIS A TMO2/TU16? 


ee 
Bn Roe 

3" 

a 

: 


- 
—ze 


2ND #? (N,Y-44S) 
ST # 


“i 


— —{o— os CC os —1 
ThA 
Oo 
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eH 
+ - 
ae 


am 


ne ~ 
z:320O 
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=z 
or 
fh 
wh 
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4-4 


aaRpse 


mo 
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R 


OR START OF A STRING 


i 
ew 


S33 
alts) es 
<= Ro 
a 
bs 


T 
OR ANOTHER DEV # 

V K TRAILING FLAG 
T? (N,Y-CVLERY) 
TO FIRST DEV # 
CK TRAILING FLG 
T? (N,Y-70$) 


ITs’ 


AN 
Bus 
os 
Z 
a} 
rf 

<2e 
ne 


5 
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See Clee SE St Sele SE wl Ss Se Ss we Sees eee eS 
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SEQ 0027 















VALIDATE MODEL NAME & DEV #°S S/R 
95704 CVLFIL: TST RY iDEV # CNT = 0? 
BEQ 100$ 100$ 
4377, (R3)+ bh FILL CHAR 70 DEV # STORAGE 
NE ‘CNT = 5 ty. N-90S) 
01 100$: MOV 


( 
912604 OV (SP)+,R4 RESTORE WORK REG’S 


Ooo 
| ad 
Wu) 
— > 
Bee 


000377 90$: 


Ia 


~ 
GIGIGIWIUIG 
He 
bah 
£ 
ow 
bx 
oe ee 
S Nz 
Ww 
Oz 
MO 
o= 
w 


“wee ew 
oO 
z 
3232 3=WD 
Oo 
< 
~ 
w 
wv 
+ 
2 
w 


Bas 


oe MOV RO, -(SP) 
Bae7e 020000 166236 BIT aCVLFLG, CRFLGW ;TEST TRAILING OPERAND FLAG 
oode0s RTS RS sEXIT IN-LINE 


£o 


OO4S67 173010 CVLERI: JSR RS, CTYPE ; ISSUE NO MDL NAME ERROR 
ooo04 4 


iit 


7 173000 CVLER2: JSR 7 CTYPE ; ISSUE INV MOL NAME ERROR 


CVLER3: MOV (SP)+, R4 ;RESTORE R3 & RY 


ee 


2 
OOOO OOOO000000 


Q04S67 172764 CVLR3A: JSR RS, CTYPE :GO REPORT INV UNIT 8 
408S 000113 .WORD 113 
4985 1735E4 “WORD  CERMI7-. 
4087 012605 CVLER4: MOV (SP)+, RS CLEAR REG RS 
4088 0132046’ 000167 171536 IMP SANPN ‘GO ISSUE NO PROG # MSG 
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-Pil USER PROGRAM FLAGWORD MODIFICATION S/R’S 
-SBTTL USER PROGRAM FLAGWORD MODIFICATION S/R’S 
4032 isiaiaolelehaiailedeleleisisiaiebeleleisiaieieleieisileleieieislleleiaisleiseleieieieieeieisioleleieiieieieieeieieieieleeiele 


THESE SUBROUTINES PROVIDE QUICK AND EASY ACCESS TO THE 
Aorta coed EN A USER PROGRAM AREA. THEY ARE 


I MORY MANAGEMENT 
VERSION. EQUIVALENT S/R’S ARE INCLUDED IN THE NON-MEMORY 
MANAGEMENT VERSION FOR COMPATIBILITY PURPOSES. 


5 RERELEREE ARAL AKL LAL EAE RAE AA RA EAL AA LEE KALE RARE ARELA ALAA LRAERALERES 


So23 


4103 ; SET BITS IN THE USER’S FLAGWORD 


TEP L1-DTMGA-C_— MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 26 SEG 00288 
JSR RS, UFWSET S/R_ CALL 


4106 : -WORD BITMSK BITS TO BE SET 

4107 : “WORD ADR-. REL ADR OF WO THAT 
4108 : CONTAINS USER FLGWD ADR. 
4109 : IF MM, CONTAINS HIGH 16 BITS. 
4110 : DESTROYS RI 

4112 001 IF OF MM 

4113 IFT 

4114 013252’ 012567 op0006 UFWSET: MOV (RS)+, 105 ;GET BIT MASK 

4115 013256’ 010501 MOV RS, RI :GET REL ADR AND MAKE 
4116 013260’ 0 OD (RS)+,R1 IT ABS 

4118 JSR PC, UFWSUV -SET UP_A VIRTUAL ADR 
u18 BIS (PO)+, (RL) :SET SPECIFIED BITS 
Hel 013262’ 052731 BIS (PC)+,a(R1)+ ;SET SPECIFIED BITS 
4123 013264’ o00000 10S: “WORD  XXXX 

4124 013266’ 000417 BR UF WMEX GO TO EXIT 

4125 000 ENDC 

4126 

4127 

4ic8 ; CLEAR BITS IN THE USER’S FLAGWORD 

4130 : ISR RS, UFWCLR S/R CALL 

4131 : -WORD  BITMSK BITS TO BE CLEARED 
4132 : “WORD  ADR-. REL ADR OF WD THAT 

4133 ; CONTAINS USER FLGWD ADR. 
4134 ; IF MM, CONTAINS HIGH 16 BITS. 
4135 : DESTROYS R1 

4136 

4137 001 IF OF MM 

4138 IF TF 

4139 013270’ 012567 o00006 UFWCLR: MOV (RS) +, 10 ;GET BIT MASK 

4140 013274’ 010501 MOV RS.R1 sGET REL ADR AND MAKE 
diay 013276’ 062501 ADD Rete, R1 ‘IT ABS 

4143 JSR WSUV -SET UP A VIRTUAL ADR 
4144 BIC CBR) e ERD ‘CLEAR SPECIFIED BITS 


pot ee ee 
i 
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DTMGAC.Pil USER PROGRAM FLAGWORD MODIFICATION S/R’S 
mt Pe 013300’ 042731 Bic (PC}+,a(R1)+ ;CLEAR SPECIFIED BITS 
414 . IF TF 
4148 013302’ 000000 108: -WORD = XXXX 


4149 013304" 000410 BR UF WMEX ;G0 TO EXIT 
4150 090 - ENDC 


eo te er ees See, Se a TS 


rn ee + se eee 
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; TEST BITS IN THE USER’S FLAGWORD 







JSR RS, UFWTST 

: . WORD Aa Bits 7 15 BE TESTED 

. poeta eg NTRINS USER FLGH 

: cont 5 LEE HI Apr. BITS. 

: BR LABEL EXECUTED IF BITS NOT SET (BEQ) 
: DESTROYS R1 





UFWTST: MOV (RS)+, 10S GET BIT MASK 
MOV RS.RI1 ‘GET REL ADR AND MAKE 
ADD (RS)+,R1 ‘IT ABS 
ISR PC. UFWSUV T UP A VIRTUAL ADR 
iT. (Bebe CRY) SEL SPECI ae bree 
BIT (PC)+,a(R1)+ TEST SPECIFIED BITS 






10S: “WORD  XXXX 






BEQ UF WMEX sANY BITS SET? (Y,N-UFWMEX) 
TST. (RS)+ BYPASS THE BR INST 
UFWMEX: RTS RE sEXIT IN-LINE 






UFWMEX: MOV (SP)+, J#KPARG ;RESTORE KERNEL’S PAR 6 
RTS RS EXIT IN-LINE 


;SET UP VIRTUAL ADR OF UFW 










UFWSUV: MOV (SP), -(SP) MAKE ROOM ON THE STK 
MOV aaKPARe, 2(SP) CAVE KERNEL’S PAR 6 
JSR RY, SRE *SAVE REG’S RO - RY 
MOV Pc? aoe GET ADR OF S/R LINK WD 
ADD #20$-. ,R2 
SUB Re 





Mak REL AGAIN 


R 
(R2) °§ 

JSR RS. G2eBAD ‘CONVERT IT TO A 22 BIT ADR 

208: .WORD  XXKX 










JSR PC, CVTVAD ;CONVERT IT TO A VETS ADR 
MOV R1,2(SP) PUT ADR IN R1_ON THE STK 
JSR R4, RREG j RESTORE REGISTERS 
RTS PC sEXIT IN-LINE 
- ENDC 
IF DF MM 


- PAGE 
-SBTTL CHECK FOR UP TO A 3 PAGE MEMORY AREA 
5 He EAE HEE HEHE HEE EE EEE EE A EE EEE EE ESE EEE EEE EEE 


USING THE CONTENTS OF R1 AS THE HIGH 16 BITS OF A 22 BIT ADDRESS, 
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<= 
a 
~~ 
£ 


4220 1 i 
4224 CKF 


4253 308: 
4255 40S: 
4 


4259 50S: 
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4235 10$: 


20$: 
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THIS pee ot Pe Fe tex + ts te ae eetas oy a 


NEN Y THe Size OF THIS. BREA” (HAX OF ns) I RETU BNE IN 
Re ae SA COUNT SF % THis a BLOCKS. AN ERR R KHOR BE Sue iF 
THE MEMORY AREA IS ALREADY OCCUPIED AND Re WILL BE SET 7 


LINKAGE: JSR PC, CKF3PG S/R CALL 
ENTRY: Rl = HIGH 16 BIT ADR OF AREA TO BE CHECKED 
EXIT: Re = AREA LENGTH IN 32 WORD BLOCKS 





DESTROYS Re 
REALL K LAL ALKA KLE ALKA ALLEL EL EK ELLER ELE EARL REREEELRERELEEERELREL ERE 


3PG: JSR R4, SREG ;SAVE REGS O - 
MOV ;SET UP CNTRL ROUT TBL ADR 



















MOV R1,R3 : MOVE AREA START ADR TO R3 
‘SET AREA END ADR TO AREA 
ADD 2K 
MOV . -GET REAL MEM END ADR 
INC “ADJUST IT 
CMP RY, Re *IS END ADR OUT OF MEM? 
BLoS } -—«10$ ;¥ 
MOV RY USE END OF MEM AS AREA END ADR 
TST (RO)+ ron TO NXT TBL ENTRY 
TST (RO) THIS PROG ENTRY EMPTY? 
BEQ 10$ -10$ 
CMP (RO), #177777 iW OF THE TBL? 
BEQ SOs N, Y-50$ 
MOV CRTEXT(RO),R2 GET PROG’S LGTH IN 32 WD BLKS 
BIC #F IXADR, R2 "RESET FIX ADR FLG IF THERE 
ADD (RO) Re :GET PROG® END ADR 
CMP R3, (RO) "AREA START ADR VS. PROG’S START ADR 
BLO 20$ BR IF AREA ADR IS LOWER 
BHI $ : IF often ADR IS HIGHER 
CMP RO, CURCTE sTHL PROG SLOT? 
BEQ $ “N. Y=10$ 
BR 40S it TO ERROR POINT 
CMP R4, (RO) ‘AREA END ADR =< PROG’S START ADR? 
BLoS «108 :N.Y=1 
MOV (RO), R4 USE PROG’S st afior AS NEW AREA END ADR 
BR 10$ GO CK NXT ENT 
MP R3, Re “AREA START ADR => PROG’S END ADR? 
BHIS 108 :N Y-10$ 
MOV - R3,R4 *SET AREA END ADR TO AREA START ADR 
JSR RS; CTYPE ‘ISSUE “AREA ALREADY OCCUPIED” 
“WORD 402 ERROR MSG 
“WORD  CERM34-. 
SUB R3,R4 GET LGTH OF THE AREA 
MOV R4'4(SP) STORE IT IN Re ON, ON THE STK 


JSR R4, RREG sRESTORE REGS 
PC sEXIT IN 








0 


MAINDEC-11-DTMGA-C 
TNGAC. 


MPG CONTROL ROUTINE 


MACY11 27(732) 24-SEP-76 13:54 PAGE 26-4 





SEQ 0092 


Pll USER PROGRAM FLAGWORD MODIFICATION S/R’S 
-SBTTL MOVE USER PROGRAMS UP AND DOWN S/R’S 
iciniaiaileleleieisiaiaiaileleleleieisiaieeleleleieieieieieleleleieieieeléleieieisieieisileisieisleisideieleieioisieisisiieleieiela 
THE FOLLOWING TWO SUBROUTINES ARE USED TO MOVE USER PROGRAMS IN 
M ADDRESSES 5S AR BIT 


MEMORY. THE UPPLIED HE HIGH 16 2 
DRESSES AND THE PROGRAM'S SIZE IS SPECIFIED IN THE NUNBE 
32 WORD BLOCKS. THE MOVE UP S/R, WHICH IS USED TO RELOCATE 
Y, STARTS END ROGRAM 
S/R, WHICH 


IS 


USED 


3 UPWARDS IN MEMORY, S 
; AND MOVES CONSECUTIVELY LOWER BLOCKS. THE HOVE pout 


TO RELOCATE PROGRAMS DOWNWARD IN MEMO 
BEGINNING OF THE PRUGRAM AND MOVES CONSECUTIVELY RIGHER BLOCKS. 


ARTS AT THE 


23H GHEE 
;MOVE USER PROGRAM UP 


MOVPGU: 


10S: 


MOVEX: 


MOVPGD: 


30$: 


;JSR — PC,MOVPGU S/R CALL 
# OF’ 32 WORD BLOCKS 
Re FROM 16 HI BIT AD 


;R4 T 
: DESTROYS RO,R1,R2,KPAR6 - ALTERS R3,R4 


MOV R2, -(SP) SAVE PROG LENGTH 
ROD R2,R3 -POINT TO END OF “FROM™ AREA 
MOV R3, MOVADR ;STORE “FROM” HI 16 BIT ADR 
JSR W “GET 32 WDS OF PROG 
MOV R4; MOVADR :STORE “TO” HI 16 BIT ADR 
JSR PC’ PUT32W “PUT 32 WOS IN NEW AREA 
DEC (SP) iDECR PROG LENGTH CNT 
BEQ MOVEX ici = 0? YHOVEX) 
DEC R3 R PROG hea AD 
DEC R4 
BR 10$ a DO NXT 32 WDS 
TST (SP)+ s CLEAN UP STACK 
RTS PC ‘EXIT IN-LINE 
;MOVE USER PROGRAM DOWN 

;JSR PC, MOVPGD S/R CALL 

-R3 = 8 OF 32 WD 

ms = OR OF FROM AL 16 BIT ADR 

iRESTROYS RO,R1,Re,R3, REARE = ALTERS (R4),RS 
MOV RS, -(SP) ;SAVE PROG’S NEW AREA ADR 
MOV (R4), MOVADR ‘STORE “FROM” HI 16 BIT ADR 
JSR PC, GET32W : WOS OF PROG 
MOV * MOVADR ‘STORE “TO” HI 16 BIT ADR 
JSR PC’ PUT32W ;PUT IN 
I (RG) ;ADD 1 TO “FROM™ ADR 
I RS 1 TO “TO” ADR 
DEC R3 :DONE ALL 32 WO BLKS? 
BNE 30 :Y,N-30$ 
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4320 MOV (SP)+, (RY) sSTORE PROG’S NEW ADR 
435] RTS PC _  SEXIT IN-LINE 
4355 
4324 GET32W: MOV #012120, GPINST ;SET UP “MOV (R1)+, (ROJ+" INST 
4385 BR GP32CM :G0 TO COM PROC 
4 PUT32@W: MOV #012021, GPINST SET UP “MOV (RO)+,(R1)+" INST 
4328 GP32CM: JSR R5, Ga2BAD ‘GET ADR AS 22 BITS 
4330 ISR PC, CVTVAD ;SET UP A VIRTUAL ADR IN RI 
4331 MOV SET UP WORK BUFFER ADR 
4332 SUS TKWK-. ,RO 
4333 MOV 832. ,Re -SET UP WORD CNT 
4334 GPINST: NOP GET OR PUT A WORD 
4335 DEC R2 : DEC NT 
4336 BNE GPINST ‘CNT = 0? (Y,N-GPINST) 
437 RTS PC “EXIT IN-LINE 
4339 MOVADR: .WORD 0 #;HI 16 BIT ADR OF MEM BLK 
real ot FIND LARGEST/LOWEST FREE MEMORY AREA 
a : oHEELESSESFSLEE EEL SLE LL SEL SE HERESE LASEK TE LEEKS SALLE RESLSE RAS ERSRRE KEKE EAL ES 
4345 : S SUBROUTINE SCANS I 8 AREAS OF MEMORY LOOKING FIRST 
| aaae : LIN Eo TWO ee re Bas Are Ne SAE St THE LARGEST, THE 
| dae : OND 11s SIZE In REGIST fr tHe UNToos DRESS OF = TH AREA 
4350 : BEING sale THC Be EIU WILL BE WITHIN THE 18 BIT ADDRESSING AREA 
ise : LINKAGE: JSR PC,FINOFM 
4354 : EXIT: RO = HI 16 BITS OF BREA 
| 35s Rl = 8 OF 32 WD BLKS 
: Piiiiiiititititiiititititiitiitiitititiitiiiitiiiitiiiititittttrttt ttt itty 
4359 FINOFM: JSR Ru, SREG ;SAVE REGS 0 - 4 
4360 MOV PC :SET UP CNTRL ROUT TBL ADR 
4361 ADD SCRTBL-. ,RO 
| 4362 MOV PC, RI ;SET UP WORK BUFFER ADR 
| 4363 ADD BUSTKWK-. , RI 
| 4364 MOV Ri, Re : IT IN R2 FOR LATER 
| 4365 10S: MOV CATEXT(RO) CRTEXT(RI) ; EXT WO TO WK BUF 
4 BIC SF IXAOR, CRTEX iRe T FIXED ADR FLG IF THERE 
4 MOV =: (RD) +, (R1)+ ;STORE USER PROG AOR 
| 4368 CMP 8177777, -2(RO) *END OF CNTRL ROUT TBL? 
| 4369 BNE rl :¥,N-10S 
i 4379 MOV R2.R1 :SET UP ADR OF 2ND 
| 4371 ADD «88. RL ;HORK’ AREA 
| 4372 MOV RL (SP) i SAVE AREA ADR ON STK 
| 4373 20$: MOV c ,~(SP) : OF MEM ADR ON STK 
| 4374 CLR Rs *RESET ENTRY FOUND FLG 
| 4375 MOV Re, RO ‘POINT AT 1ST AREA IN WK BUF 
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ne 308: qs (RO) sENTRY EMPTY? 
‘ 8 BIT SUNINAP, CSYSFH Ushi he UNIBUS MAP? 
i350 BIT a8] S22, CSYSFH ;USING 2 BIT ADRS? 
438 cH (RO), #10000 iTAIS PROG ABOVE 18 BIT ADRS? 
4386 35$: INC R3 SET T FND FL 
$382 CrP (RO), (SP) ‘THIS LOWEST ADR SO FAR? 
4389 HOV (RO), (SP) i SAVE 11s ADR AS NEW LOWEST 
439] 40$: TST (RO)+ POINT 8 T Tee ENTRY 
1332 49 aaa ve ee TBL? 
4394 TST —(SP)# ;TAKE OLD AOR OFF STK 
ioe seo CSS os 
4397 MOV CRTEXT(RY),CRTEXT(R1)  :STORE THIS PROG’S INFO AS THE 
4398 MOV (R4), (R1)+ NEXT HIGHEST IN MEM 
4299 CLR (RY) ;RESET cE "$ SLOT poo 
4401 SOS: MOV Sle 777 (R1)+ igo A PONT HTD 
| my Sea Tatr Bet Plot oa a 
4404 MOV eres INH PREY I ADR 
| Hits mov L-CS) HUNT PREV PROG, START AOR 
| wi 0S: cre 8177777 , (RO) sEND OF SORTED PROG ADR TBL? 
|  44pg MOV CRMEND , Re *GET ENO OF MEM ADR 
; 4410 INC Re sADJ IT 
| nes BIT SUNINAP, CSYSFH sUSING THE UNIBUS MAP? 
| #413 BY #817822, CSYSFH USING 32 BIT ADRS? 
His CHP Re #10000 neh es > 18 BITS? 
4417 MOV 81 R2 : SET ADR 
| 4418 che Ri Re’ i PREV PROG. END AT 18 BITS OR ABOVE? 
| wet HOV esp a USE STOR OF PROG Ber of men - 
| Hee 65S: SUB 1,Re" ; SUB PREV PROG END ADR ERON fT 
| wes CHP R2. 8600 i ARE =) 3 PAGES IN SIZE? 
|e oe. ie Tt teacer Then prev Lencesr? 
| 44D7 MOV Re, RY SET Ptr TH INSTEAD 
| 4458 BR 110$ ist 10 F ne, PROCESSING 
| wes 70S: cre (RO), RI iTHIS pene T AGAINST PREV PROG? 
43] 80S: MOV R1,2(SP) ‘SAVE AS PREV PROG-1 END ADR 





a a ale C 


SRRPSREBIS IAA ISA ISRLRREERE COMOROS EEE AE 


MPG CONTROL ROUTINE 


MOV (RO)'R1 iUSE Ts ADR + LGTH AS NEW 
ADD CRTEXT(RO) ,R ‘PREV PROG END 
TST (RO)+ ‘POINT TO NXT PROG SLOT 
BR b0$ GO CK NXT PROG 
S0$: MOV { ) Re :GET ITS POR ‘ pee 
C RS’ 00 pete 3 Mee es 
BHIS 4100S :N, Y-100$ 
CMP Re RY 15 IT THE LARGEST SO FAR? 
BLOSSs«B $Y 
MOV R1,R3 PREV, PRO PROG END ADR AS OPEN AREA ADR 
MOV Re’ RY : ITS SIZE 
BR go$ -GO CK FOR L AREA 
100$: MOV #600, RY iSET BRER SIZE TO 3 PAGES 
110$: MOV R1,R3 ;USE PREV PROG END ADR AS START ADR 
120$: ADD #4/ SP FROM STACK 
MOV R3, (SP) :S N RO ON THE STK 
MOV RY. 2(SP) iST0R cry N Ri ON THE STK 
JSR RY; RREG 0- 
RTS PC EXIT ARIK 





pana —— C4-SEP-76 13:54 PAGE 26-7 
USER PROGRAM FLAGWORD MODIFICATION S/R 


MOV (RO), (SP) 


;SAVE AS PREV PROG START ADR 


CBT SET UP MIDL’S AND FREE MEM’S ABSOLUTE ADRESSES 


; EELLELELELESELLLELLLLLLELAL ALLEL LALA ELELLSLLELALARELAAE SS RAL EL ELLE EES 


THIS ws o/h i Oe te ee STORE . jorge 8 BIT Ib/z2 BIT ABSOLUTE OF 


SESS, OP ltt ne USED, | Frees Ri CENGTH. tT IF 


fe Is 15 BEING IT VIRTUAL WHICH 

gl S, WILL AL ORED. 
THESE BUS f MAP REGISTERS atc BE INTITIALIZED WITH THE 
CORRECT ABSOLUTE ADDRESSES AT THIS TIME. 


LINKAGE: JSR PC, SUMIFM 


DESTROYS RO,R1,Re 


; SHELELLLLLALALRLLELLLARA LEAS LALLA LALLA AERA LER EEE LL LA LLL LL LL LALA LA ERE 


SUMIFM: HOV R3, ee ;SAVE R38 RY 
JSR ;CONVERT FREE MEM START TO 
WORD chet ae BLT 
MOV T OF STORAGE AREA 
ROY ip - STORE FREE’S 18/22 BIT 
MOV RB Bae FoR 
BIT m,n CSYSFW Rae THE UNIBUS MAP? 
SOV SPSCONS, (R3)4 es'3 SUS 
MOV He : pan se nt 
MOV ri 3,R4 STAI TIAL Toe MAP REG ADR 

10$: MOV RO, (R4)4 ‘STORE ADR IN NAP REG 


SEO 0095 
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SHEE 
ae 
du3t 
as 
qaga 
4493S 
44 
449 
4498 
4499 
4501 


Benne onee 


PARRA 
WD NO UT£ Wr © 


SSC SOS MOND EREN 


re ee EE ES A SS a 
‘ 
" 
; 
' 
} 
i 
‘ 
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RPS SNS Se ae eR ANS 


wo 
ot 


SSS8S83i 


wo 
_ 
4 


a 
BRoESSSS toe eee ees 


MOSmEMME 
o<= <H5OO4 





Re, (R4) + 
#20000, RO 
Re 


Ri 
10$ 
 emeeaies 


MIDADJ 
Nama cts 


CFMST,R1 
R1,-(5P) 


RA 
a0 MIDADS 


BRP 
a 


ate 


ae 


ns 


oo 
2 
— 
_ 
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16. (R4) 


:POINT TO NEXT 4K WORDS 
“DONE 3 REGS? 

:1,N-10$ 

*RE-ADJUST FREE’S ASS ADR 
RESET ADJ FACTOR 

‘GET END OF 


‘DIVIDE IT BY 2 

188 JE EVEN. § OF 32 uO BLKS 
:CONVERT 32 MD CNT TO 

;SET IN ADJ FACTOR 

:SET UP ADR OF MIDL"S 

STORE MIDL’S 16 BIT VIRTUAL ADR 
;ADD DISPL TO FREE’S ADR 

;STORE MIDL’S 18/22 BIT 

FUSING THE UNIBUS MAP? 

ge y MIOL'S 18 BIT VIRT AOR BASED 


ee eee on 
Hes SCONE 
;SET UP STORAGE AREA ADR 


;SET UP PAGE CNT 
sale « 4K WORDS? 


:St PDR VALUE 
;STORE HI 16 BITS OF ADR 
i BUChe bce St ze BY 4K 
DONE 3 PAGES? 
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4544 BEQ 100$ 00s 
4S4S 90$: CLR 16. (R4) iReceT UNUSED POR 
Hee LR (R4)+ ?RESET UNUSED PAR 

4 EC (SP) + NE 3, PAGES? 
4548 BNE 90$ 
Heda 100$: TST (SP)+ ake cnr F STK 

MOV (5P)+,R4 RES ORE R3 & RY 
4551 MOV (SP)+°R3 
4558 RTS PC ;EXIT IN-LINE 
wo54 .SBTTL MAP USER PROGRAM’S PAR & PDR REGISTER VALUES 
dees 5 LRAARALAAA RELA ALARA LAL ALA LE LARA ELLA RE LEAL E RAL ALLA LL AEA ELLE LA LALA ALES 
4558 ; THIS SUBROUTINE WILL INITIALIZE THE PROGRAM TABLE STORAGE 
4559 : AREA FOR THIS PROGRAM’S PAR AND PDR REGISTERS. THE FOLLOWING 
#560 : RE THE REGISTER ASSIGNMENTS: 
4562 : PAR/PDR 0,1,2 = PROGRAM'S AREA 
4563 : 3,4,5 = FREE MEMORY AREA 
4564 : Ze = MPG’S SHARED CODE 
#565 : ? = 1/0 PAGE 
4567 : USES PART OF THE “SUMIFM™ S/R TO MAP PAR/PDR’S 0, 1,2. 
Moe: : LINKAGE: JSR PC, MAPUPG 
Were : ENTRY: R3 CONTAINS PROG TBL ADR 
1572 : R4 CONTAINS PROGRAM'S CONTROL ROUTINE TABLE ENTRY ADR 
4574 : DESTROYS RO,R1,R2 
we : SEEKAKEREREKKARARA LARA LE LARA LELAAHERAAALA RA RASHES SHAH SAAAAELA LEAKE ELE 
4578 MAPUPG: MOV R3, -(SP) ;SAVE R38 RY 
4579 MOV cag 
4580 ;SET UP ADR OF VALUES FOR 
4S81 ADD :PAR’S & POR’S 3 THRU 7 
4582 MOV Maine sPOINT TO THEIR STORAGE AREA IN 
4583 ADD i . RI ‘THIS PROG’S TBL 
4584 MOV ‘SET UP REG CNT 
45985 10$: MOV fie 16.(R1) ist POR VALUE 
4586 MOV (R1)+ *STORE PAR VALUE 
4587 DEC “DONE ALL REGS? 
4588 BNE :Y,N- 
4529 MOV CRTEXT(RY) RL “GET *S LGTH IN 32 WD BLKS 
4590 BIC IXADR, Rl *RESET FIXED ADR FLG IF THERE 
4591 MOV RY :SET UP OF ST AREA IN 
Hee ADD ry RY : THIS °S TBL 
MOV PFWADR(R3) ,R3 GET STARTING HI 16 


BIT AOR 
PART OF SUMIFM S/R, DO MAPPING 





4594 BR MAPEXT ;USING 
4595 000 - ENDC 
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eee -SBTTL CONTROL ROUTINE SMALL S/R AREA - 

4599 


5 RERAKELAFLHRERE 


THIS S/R_INITIALIZES THE CURRENT ay DATA PCINTER 
TO THE START OF THE CONSOLE READ-IN AREA. 


AAAS AS 





LINKAGE: ISR PC, CSUPTR 
eiitiitiriittte 

013330’ 010746 CSUPTR: MOV PC, -(SP) sRESET DATA PNTR TO FIRST 

4610 013332’ 062716 166132 ADD #COMDRD-. , (SP) ‘CHAR OF READ IN QREA 
4611 013336’ 012667 166120 MOV (SP)+, CPNTR 
Hele 013342’ 000207 RTS PC sEXIT IN-LINE 
4614 
wit 5 RELRRAERELAAAEEE 
ueLe : THIS S/R TESTS THE OCTAL ADDRESS IN RO AND IF 
418 a : SETS IT TO EVEN AND ISSUES A MSG INDICATING a Obact. 
4620 ; Re CONTAINS HIGH & BITS OF THE OCTAL ADDRESS 
4621 090 "ENDC 
io23 LINKAGE: ISR RS, CKODAD 
4625 MAY DESTROY REGISTERS: RO,R1,R2 
4627 ePrr err Tr etter 
4628 
4629 001 .IF OF MM 
4630 “IFT 
4631 CKODAD: MOV R2,-(SP) ;SAVE ORG 22 BIT ADR 
| up32 MOV «RO? -( SP) 
4633 FF 
| 4634 013344’ 01004 CKODAD: MOV RO, -(SP) ;SAVE ORG ADR 
| 4635 000 . ENDC 
4636 013346’ 000001 BIT a, RO iS OCTAL ADR ODD? 

6 : poeate Bee ect T TO NXT LOWEST EVEN ADR 
| ues pi aser 3 025540 JSR fh BINASS et IT 10 ORG ADR TO ASCII & 
| 4640 013362" 1 . WORD BUT IN MSG 
| 44 013364 7? 172634 JSR on ISSUE ADR ADJUSTED MSG 
| 4642 013370" . WORD 
| 4643 013372’ 173743 “WORD  CAAMSG-. 
| 4644 013374" 012600 10$: MOV (SP)+,RO sRESTORE FINAL ADR 
, 4645 001 IF OF 
| 446 MOV (SP)+,Re 
| 4647 090 .ENDC 
| 4648 013376’ 000205 RTS RS sEXIT IN-LINE 
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4650 
4651 


4654 
4655 


P 3 
& 
wo 


PRAM RES S35 15 


166754 
166170 


~ 
oO000 
> 6 be 
— 

“I 

~ 


6 
06’ 012667 
* 000207 


4675 


ge 
ae 


000032 


166174 
000012 


: 


VQESEeee 
ats 


. 
oOo 
— 
ru 
_ 
HY} 


e0$: 


3 
OoO0O000000 
8 
a 


le es ee oer oo 


z 


& 
aR 
8 


4703 001 
4705 O13444’ 020467 166002 


CSUERR: 


CSTDVI: 


CMEMCK: 
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s LEKFREAAERELAES 

: NTAINED AT THE STANDARD ERROR RETURN 

: GObRERE.STORBGE LG COcRTIGN roe Be WILL BE SET To 

; “CENTPB” BY THIS 

: LINKAGE: JSR PC, CSUERR 

ertitiiiititttt! 

MOV :GET ADR OF ERROR RETURN POINT 
ADD acentPe (SP) 

MOV (SP)+, CERRET STORE IT IN ERROR REPORTING ROUT 
RTS PC ‘EXIT IN-LINE 

js RHRRRELRRAEEREE 


THIS S/R MOVES THE 10 WORDS OF DEVICE INFO AT “CMCDVN™ 
TO THE PROGRAM TABLE POINTED TO BY R3. 


LINKAGE: JSR RS, CSTDVI 
DESTROYS REGISTERS: RO,R1,Re “ ‘, 


-* 


1 eadEHEEHEE 

MOV R3, Re ;SET UP PROG AREA WORK ADR 
ADD #PMDLCD,R2 -SET UP DEVICE INFO STORAGE ADR 
MOV PC, RI *GET ADR OF DEVICE INFO 
ADD SCACDVN-. , RI 

MOV #10.,RO ;SET UP WD CNT 

HOV CRS, (R2)+ ‘MOVE DEV INFO TO PROG TBL 
BNE aS 

RTS RS sEXIT IN-LINE 

5 RHRERERERERRERE 

"IF OF MM 


 IFF 
bey S/R VALIDATES THAT THE ADDRESS IN RY IS EITHER 
ieyatis S/R VALIDATES THAT THE ADDRESS IN R3 & RY IS EITHER 


WITHIN REAL MEMORY OR IN THE DEVICE REGISTERS’ AREA. 
iF NOT, AN ERROR IS REPORTED. 


’ 
] 
; LINKAGE: JSR —-RS, CMEMCK 
Pirititi titi itty 
-IF DF MM 


. IFF 
CMP R4, CRMEND ;ADR HIGHER THAN REAL MEM ADR? 


SEQ 0099 















eet es 


TMGAC.Pil 
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CONTROL ROUTINE SMALL S/R AREA 


2 Gisee* Gadde? sso000 
103401 


1732eS 


172536 


166076 
166074 


000960 


ous: 
cbs: 


CMEMCK: 


20S: 


30$: 


Sos: 
60S: 


CISDNM: 


10S: 
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BLOS 24g 24g 
CMP R4, #160000 HW FV REG RANGE? 

BLO 26$ 65 

RT RS EatT INE 

JS RS, CTYPE :G0 REPORT OUT OF MEM ADR 
.WORD 003 

- WORD CERMO9-. 

JSR RS, G22BAD ;CONVERT REAL MEM END ADR TO 
.WORD  CRMEND-. 22 BITS 

BIS #77, RO :POINT TO END OF 32 WD AREA 
CMP R3, Re ‘COMPARE HIGH 6 BITS 

BHI 20$ : > MEM? (N, Y-20$) 

BLO 50S : ¢ MEM? (N. Y-S0S) 

CMP R4. RO “COMPARE LOW 16 BITS 

BLos }~=s S$ : =< MEM? (N, Y- 50S) 

MOV #3,R2 -SET UP HIGH BITS FOR 18 BITS 
BIT #8tTS22, CSYSFW "USING 22 BIT ADDRESSING? 

BEQ 30$ :Y_ N-30$ 

MOV #77,Re *SET UP HIGH BITS FOR 22 BITS 
CMP R3, Re :COMPARE HIGH 6 BITS 

BNE 60$ ; = 1/0 PAGE ADR? (Y,N-60S) 
CMP R4. #160000 ;COMPARE LOW 16 BIT 

BLO 60$ < 1/0 PAGE ADR? (N, Y-60S) 
RTS RS ‘EXIT IN-LINE 





;GO REPORT OUT OF MEM 





JSR RS, CTYPE 
. WORD 
CERMOS-. 









, ShenSEeReneTeeS 


THIS S/R SCANS THE LAST CMND WORD BACKWARDS LOOKING 
FOR NON-DECIMAL CHARACTERS. 


LINKAGE: JSR RS, CISONM 
DESTROYS REGISTERS: RO,R1,Re 
UPON EXIT: RO = RIGHT END ADR OF WORD 

R & OF IMAL DIGITS 
EFTMOST DECIMAL DIGIT 


S/R CALL 








¢ REELEELLELEREEE 


R3, -(SP) ;SAVE WORK REG 
MOV CDSTAD, RO GET DATA STARTING ADR 


MOV COCNT Rd :GET 

R00 R3,RO SET UP RIGHT HAND END ADR 

MOV —-RO, R2 ;MOVE IT TO WORK REG 

CLR = RL CLEAR CHAR CNT REG 

CMPB = (R2), #°0 ‘CHAR IN OPER FROM 0 - 9? 
0 20S :¥,N-20S 





~ 
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4 13522" 121 000071 MPB ss (R2), #9 
qoe8 ft 161664 ae HI 20$ 
Wee O13630" Oossoe DEC Re sDECR DATA ADR 

766 eat hate CMP R1.R3 ‘SCANNED ENTIRE WORD? 
4767 013536’ 001366 BNE 10$ iY N-10$ 
4768 013540’ 905202 20$: INC Re POINT ADR aT PREV CHAR 
4769 013542’ 012603 MOV (SP)+,R3 ; RESTORE WORK REG 
4770 6013544" O00205 RTS RS EXIT IN-LINE 





pm ee He oe 
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4772 5 RELELERE EH EREES 


4773 ; 

4774 : USING THE DEVICE MODEL CODE IN R1, FIND THE DEVICE’S NAME IN 
4775 : THE VALID DEVICE NAME TABLE AND MOVE IT TO THE ADR SPECIFIED. 
4 : LINKAGE: JSR RS, FDVNAM S/R CALL 

4778 : WW ADR-. REL ADR TO PUT 4 CHAR NAME 
1773 : R1 CONTAINS MODEL CODE WORD 

pias} : DESTROYS REGISTERS: RO,Re 

i783 Pritiittitiitte! 

4785 013546’ 19700 FDVNAM: MOV PC, RO SET UP ADR OF DEV NAME TBL 
4786 013550’ hae 027022 ADD #CMDLNM-. , RO 

4787 013554’ 010502 MOV S.Re GET REL OUTPUT ADR & 

4788 013555 ADD (RS)+,R2 :M T 

4789 013560’ oooco4 10$: TST 4(RO) ‘END OF THE TABLE? 

W7at orseee? ASBICB ooono4 Be ORT WcROD MATS THE MODEL CODE? 

aap Weazs ati BEQ 20$ :N. Y=205 

4793 013574’ 062700 O00006 ADD #6, RO ; ‘POINT AT NXT TBL ENTRY 

4794 013600’ ? BR 10 GO CK 

4795 013602’ Ol202e2 20$: MOV (RO)+. (R2)+ STORE DEV NAME 

4796 013604’ O1101e MOV (RO), tR2) 

pred 013606’ 000205 RTS RS sEXIT IN-LINE 

4799 

at $ HXKLKKKREREKALEE 

2 SEIS, SURE eae a cnt EOSTReERT™ 
4804 : PROGRAM NUMBER IN bE St | 

4806 : LINKAGE; JSR PC, CPNASC SUBROUTINE CALL 

4808 * ENTRY: R4 CONTAINS ADR OF CURR CONTROL ROUT TBL ENTRY 
4810 + EXIT: R1 CONTAINS EQUIVALENT PROG # IN ASCII 

WB1e * DESTROYS REGISTERS: RO,R1,R2 

414 Petitittit tite 

4816 013610’ 010701 CPNASC: MOV PC,R1 ;SET UP CTRL ROUT TBL START ADR 
4817 013612’ 062701 Oo20402 ADD #CRTBL-2-. ,R1 

4818 13616" 010400 MOV RY, RO ;COMPUTE ENTRY’S NUMBER 

ey Gee. dee ao" 

4821 oi eer" ooib? 025334 CPNAS1: JSR RS, BTASLB ;CONVERT # TO DECIMAL ASCII 
4e55 0 sae <4 16701 165756 Pr : CWA+4, RI GET LAST TWO DIGITS 

4824 0/3636’ RTS PC ‘EXIT IN-LINE 

4825 001 IF OF MM 

4B26 PA 


. PAGE 
4827 5 RRRLERRAKERRERE 
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4 ; 

4 : THIS S/R TAKES THE HIGH ORDER 16 BITS OF AN A 

4830 ; STORED AT THE SUPPLIED LABEL AND CONVERTS IT A p 22 BIT 
y : ADR. THE LOW 16 BITS WI tt BE IN RO AND THE HIGH 6 BITS 
W83e : IN R2. THE LOW 6 BITS OF THE 22 BIT ADR WILL ge 0’s. 
4834 : LINKAGE: JSR RS, G22BAD S/R CALL 

4g36 : .WORD LABEL-. REL ADR OF HIGH 16 BITS 
4837 : DESTROYS RO,R1,Re 

4838 4 

weuG : RKEARKKAAAALAEKLE 

4841 G22BAD: MOV RS,R1 ;MAKE REL ADR ABSOLUTE 
yB4e ADD (RS)+.R1 

4843 MOV (R1),RO ;GET HIGH 16 BITS 

4ye44 CLR R2 *RESET REG FOR HIGH 6 BITS 
484s MOV #6,R1 E 

4846 10$: ASL RO SHIFT BITS ONE TO THE LEFT 
4847 ROL R2 

4848 DEC Ri ;SHIFTED 6 BITS? 

4849 BNE 10$ :¥ N-10$ 

4850 RTS RS ‘EXIT IN-LINE 

4951 

4gS2 

ae $ KEK KLEKKX KKK EEE 

yess : THE 22 BIT ADDRESS IN RO & R2 WILL BE CONVERTED TO A 
4ese ; VIRTUAL ADDRESS BASED UPON PAR & WITH THE CORRECT 

4857 ; DISPLACEMENT. THIS ADDRESS WILL BE RETURNED IN Rl. 

4858 ; ALSO, KERNEL’S PAR & WILL BE INITIALIZED TO THE CORRECT 
4853 ; BASE ADDRESS. 

4861 : LINKAGE: JSR PC, CVTVAD S/R CALL 

4863 > DESTROYS R1 AND KPARG 

4865 eirttttiititt is 

4867 CVTVAD: JSR R4, SREG ;SAVE REG’S RO - RY 

4868 MOV RO;R1 “EXTRACT LOW 6 BITS 

4869 BIC #177700,R1 

4870 BIS #PECONS, RI ;BASE IT UPON PAR & 

4871 MOV #6,R3 *SET UP LOOP CNT 

4872 10$: ASR Re *SHIFT ADR RIGHT 1 BIT 
4873 ROR RO 

4874 DEC R3 ;DONE 6 BITS? 

4875 BNE 10% *Y Ne] 

4876 MOV RO, JHKPARG STORE HIGH 16 BITS IN KPAR 6 
4877 MOV R1.2(SP) STORE VIRTUAL ADR IN Rl ON THE STK 
4878 JSR RY) RREG jRESTORE i; GISTERS 

4879 RTS PC EX] 

4880 . PAGE 

4381 5 RRLERALEEE EERE 

4882 ; 


4883 ; THIS SUBROUTINE WILL RESET THE UNIBUS MAP USAGE 
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4gg4 : BITS IN THE “MAPMAP” WORDS FOR THE CURRENT PROGRAM. 
4B85 : THE CURRENT PROGRAM b0 : NOT USE THE UNIBUS MAP, 
4886 : if ACTIONS WILL TAKE PLAC 
4888 : LINKAGE: JSR PC, MAPHKP S/R CALL 
4890 : R3 = PROG TABLE ADR 
4831 : R4 = CONTROL ROUT TBL ENTRY ADR 
4893 : DESTROYS RO,R1,R2 
4894 : 

; RRRRRERALRAELES 














4898 MAPHKP: TST PUBMAP(R3) ; THIS PROG USE THE UNIBUS MAP? 
4899 BEQ 30$ 0 

4900 MOVB § PUBMAP(R3) RO oer 1ST MAP REG # 

4901 MOVB § PUBMAP+1(R3),Re SET # OF REG BITS 

4902 CLR R1 

4903 SUB #6, RO CHG REG # INTO SHIFT CNT 
4904 10$: DEC RO ‘DONE ALL SHIFTS? 

4905 BEQ 20S N, Y-20$ 

4906 ASL R2 ‘aIFT REG BITS ONE POSITION 
4907 ROL RI 

4308 BR 10$ G0 CK SHIET CNT NOW 

4309 20$: BIC R1, MAPMAP sRESET THIS PROG’S UNIBUS 
4910 BIC R2;MAPMAP+2 :MAP_ USAGE BITS 

4911 30$: RTS PC “EXIT IN-LINE 







. PAGE 
4913 5 EREREKEE EE RRERE 
















4915 : THIS SUBROUTINE CHECKS THAT | Q PROGRAM” S 1/0 AREA 

4916 > (PROG TBL + DEVICE ROUTINE + RDIO + WRIO) DOES NOT 

4917 : EXCEED 18 BIT ADDRESSING. THIS CHECK IS MADE IF 22 BIT 
> ADDRE T 

4920 : 

4921 : MESSAGE WILL BE ISSUED TO WARN WARN THESUSER THBT’ HES PROGRAM 

1322 : MIGHT NOT WORK. 

4924 : LINKAGE: ISR PC, CKUBAD S/R CALL 

4a5e : KPARY = PROG’S HI 16 BIT BASE ADR 

1327 : R3 = PROG TBL ADR 

4929 ; DESTROYS RO,R1,R2 







4930 : 
4931 ; RHELERRERLRREEE 






4932 

4933 CKUBAD: BIT #81 TSee, CSYSFW sUSING 22 BIT ADDRESSING? 

4934 a KUBAX N- “ERUBAK 

4935 MOV PSRCST(R3) ,RO cet IZE OF DEV ROUT+RDIO+WRIO 
4936 BIC #PYCONS , RO N 32 WO BLKS 






MOV #6,R1 
RO 
Rl 












MPG CONTROL ROUTINE 


Al St Mallee 
DTMGAC CONTROL ROUTINE SMALL S/R AREA 


CKUBAX: 


TRP34: 


TRAPER: 


TRPTBL: 


MAXTRP= 
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BNE 10$ 

INC RO 

ADD SAKPARY RO ;A00 IN BASE ADR 

NP RO, #100 oodo iP PROG 1/0 AREA > 18 BIT ADR? 
JSR gut CTYPE  TéSuE WARNING MSG THAT PROG 
.WORD 400 “MAY NOT RUN 

WORD  CERMY2-. 







RTS PC sEXIT IN-LINE 









EHH HE HEHEHE 
; 

ryt ROUTI y'P a R FOR ’TRAP’ INSTRUCTIONS USED 
: HE MEMORY ReRAGENENY VE RSION OF MPG AND IS ENTERED 
. FROM THE TRAP VECTOR A ON 34. MPG USES TRAPS 
; WHENEVER IT IS IN OeeR MODE RAND DESIRES TO GO TO KERNEL 
; MODE. THE TRAP NUMBER DETERMINES WHICH POINT IT WILL 
; BRANCH TO WITHIN MPG. INVALID TRAPS WILL RESULT IN AN 
; ERROR REPORT. 
1 HEHEHE 













MOV RO, -(SP) ; SAVE RO 
MOV (SP) jRO ‘GET ADR OF TRAP INST + 2 
MFPI  -2(R “GET TRAP INST ON STACK 
MOVB Ay: ~ :GET TRAP I.D. BYTE 
BEQ TRAPER 1S IT O?_(N, Y-TRAPER) 
BIT #1. RO 315 IT 00D? 
BNE TRAPER :N.Y-TRAPER 
MP RO, #MAXTRP iI IT A VALID TRAP? 
BHI TRAPER TRAPER 
D RO * TADEX INTO TRAP ADR TBL 
ADD #TRPTBL-2-. ,RO 
ADD (RO) ,RO ;MAKE TRAP ADR ABS 
RTS RO GO TO THIS TRAP’S POINT 
MOV (SP)+,.RO ;RESTORE RO 
BR TRP34t :GO TO INVALID TRAP ROUT 
.WORD UPGRET-. ; 2 - USER PROGRAM RETURN TRAP 
.WORD KSETVC-. ; 4 - SET INTERRUPT VECTOR TRAP 
"WORD  KCLRVC-. : & - CLEAR INTERRUPT VECTOR TRAP 
-WORD  UPRTKM-. +10 - USER PROGRAM PRINT TRAP 
1 
PAGE 
s SRERRRERERELERE 


; THIS ROUTINE PROCESSES ALL INVALID. T RAPS WHICH OCCUR ON 
; VECTORS 4, 10, 4 itd, BND 250 GISTERS RO THRU R7, THE PSW, 
; POR REGISTERS OF THE FAILING 


MMRO T 
BROGAN srate WILL Be Tea SL 'E Te! TO TO KILL TY AND KEEP «gene 


RUNNING: IF IT OCCURRED DURING MPG’S OPERATIONS, A HALT 





a ee ee ee cere en cree e-eeete enneene omen 


MAINDEC-11-DTMGA 
OTNGAC.Pil 


4996 
4997 
4998 
4999 


cit leitch 


yennanne 
DOWD NICU £ WT 


Ree EP Epes Eeasicicsiaeisyisish isis 


S 


MPG CONTROL ROUTINE 
CONTROL ROUTINE SMALL S/R AREA 


TRPOY: 


TRP1O: 


TRPSHI: 


TRP114: 


TRP2SO: 
TRPCOM: 


TRPSTK: 


10S: 
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; WILL RESULT. 


HEESESEPSLFSSHGSS 
MOV #4, -(SP) 
eR TRPCOM 


MOV #10,-(SP) 
BR TRPCOM 


MOV #34, -(SP) 
gR TRPCOM 
MOV #114, -(SP) 
BR TRE CON 
MOV 8250, -(SP) 
MOV RS,-(SP) 
Lica 
JSR BINASC 
.WORD TRPADR-. 
CLR TRPSTK+2 
Noy PEARS 
ADD 8CAMPRD-. ,R 
MOV OCSP).RO 
JSR RS, BINAS! 
INC Rl 

ADD #2, TRPSTK+2 
DEC R3 

BNE TRPSTK 
MOV SP, RY 

ADD #16. ,R4 
MOV (R4)+,RO 
MOV JS 

JSR BINASC 
WORD eo 
av BY SMMMRO, RO 
JSR BINASC 
WORD : 
MOV RO 
ISR BI 

. WORD -, 
BIT , CSYSFW 
nove 

MOV Surfer RO 
JSR 8 

WORD -, 
MOV a RO 
ISR B 

. WORD 3-, 
BIT #140000, RS 


;SET_UP TRAP O04 ADR 
;G0 TO COMMON CODE 


;SET_UP TRAP 10 ADR 
;G0 TO COMMON CODE 


:SET_UP TRAP 34 ADR 
;G0 TO COMMON CODE 


;SET_UP TRAP 114 ADR 
;GO TO COMMON CODE 


;SET UP TRAP 250 ADR 
;SAVE REGS RO THRU RS 


TO ASCII & PUT 


TIALIZE MSG TO AN 11740 
;GET MMMRO CONTENTS 
;CONVERT & PUT IN THE MSG 


CONVERT © BUT IN THE MSG 


s1S THIS AN 11740? 
*SET MSG FOR OTHER THAN AN 11/40 
*GET MMMR1 CONTENTS 

:CONVERT & PUT IN THE MSG 


;GET CONTENTS 
;CONVERT & PUT IN THE MSG 


;IN USER MODE AT TIME OF TRAP? 


ewows 
Ln Lem 


~-—? 


SEOeRAS-SSSoRet 
Ce 
rf xz 

2 


Oo 


SEG C106 
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TMGAC CONTROL ROUTINE SNALL S/R AREA 
sose2 BEO 20$ :1,N-208 
5053 MFPI SP ‘GET USER MODE STK PNTR 
MOV (SP)+,RO 
5055 BR 30S sBYPASS KERNEL MODE PROC 
buSb 20$: MOV 4, RO “SET UP KERNEL STK PNTR 
308: JSR RS; BINASC ‘CONVERT STK PNTR & PUT 
S058 .WORD  TRPSP-. ‘IN T 
JSR RS, CTYPE ‘ISSUE MSGS WITH VALUES OF 
5060 .WORD 420 “ALL REGISTERS 
5061 “WORD  TRPMSG-. 
5062 “WORD 57. 
£063 JSR RS. CTYPE 
5064 ~WORD 406 
S065 "WORD  CMMPAR+7-. 
S066 TSR RS, CTYPE 
5067 .WORD 400 
S068 “WORD  TRPPSM-. 
5069 JSR RS,CTYPE s ISSUE FAILING STATE MSG 
5070 . WORD 
5071 “WORD  TRPFSM-. 
5072 MOV BUPARO, R3 :SET UP USER MODE PAR 8 
5073 MOV SUPDRO, RS :PDR ADR’ 
5974 BIT #140000, 16. (SP) WERE WE IN USER MODE? 
5075 BNE 36 :N. Y=35$ 
5076 MOV ,R3 “SET UP "S PAR & 
5077 MOV 8KPDRO; RS :POR ADR’ 
5078 35S: JSR PC PRTERD ;DISPLAY PAR & POR REGS, 
2has Bre acs awn :N LY i 
5081 JMP MPGTRP :GO TO MPG TRAP PROCESSING 
5082 40S: MOV CPGCPT, RS : INIT AL IZE USER PROG 
5083 BIT 8340, 16. (SP) : BEING SERVICED? 
cosy BEQ 41§ Y N41 
5085 JSR RS, CTYPE * ISSUE "INT BEING SERVICED’ 
S086 -WORD 400 MSG 
5087 “WORD  TRPISV-. 
epee OF tapecatee RO LRSe AKER Teer e ey GRSE PAGE 
5090 41$: TST CPecet + ACER PROG N CONTROL? 
5091 BEQ MPGTRP :Y N-MPGTRP 
5092 43$: TST CSYSFW -CONS REQ BEING PROCESSED? 
5093 BMI MPGTRP ?N VATE 
5094 MOV #KPARY, -(SP) : SAVE ’S PAR 4 
5095 | MOV 8KPARY *SET UP PROG’S BASE ADR 
S05 MOV R3 :SET UP FLGWO ADR 
Pe me RrhtinaTGREUEMG th gE Se 
| 5038 BIT act ”(R3) i010 17 ey PRT DEV DEDICATED? 
2100 BIT SCAPINT, CSYSEW ta TRE PRINTER BEING USED? 
| 6102 BEQ uss :¥ 
5103 MOV ct STI,RO GET AOR OF PRINTER INFO 
5194 CLR . (ROS ;RESET PRINTER NT ENABLE 
| §105 45$: BIC act CRUDED+CHPINT,CSYSFW ;RESET PRT DEV DED FLGS 
| §106 BIC —- SSETDED+CTPRIO, (R3) 
| 5107 SOS: MOV R3, RO ;GET ADR OF DEV ROUT KILL 
{ 
| 
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5108 ALD ePTLGTH*DKILAD, RO ROUT ADR 
5109 TST (RO) i15. THERE A KILL ROUT? 
5110 BEQ SS$ ;¥ .N-SSS 
pill ADD (RO), RO ie TS ADR ABS 
ll MOV QeKPARG, -(SP) & 
5113 MOV SPPAR6, J#KPARG ‘SET UP SHARED CODE BASE ADR 
5114 JSR RS, (ROS GO TO KILL ROUT 
S115 MOV (30) +, SAK ARE *REST & 
5116 css: MOV (SP)+, J8KPARY ;REST PAR 
5117 JSR RS, CTYPE ‘DISPLAY USER PROG # 
5118 .WORD =. 400 
E119 “WORD -, 
5120 MOV KADJ sHSKP STACK ADJ VALUE 
Siel MOV SCKILEX-PGEBRYPECONS, RO ;SET UP USR MODE ABORT ADR 
Sle2 BIT #140000, 16. (SP) “WAS USER IN KERNEL MODE? 
Sie3 BNE 64S :Y, N-645 
5124 BIT #340, 16. (SP) ‘SERVICING AN INTERRUPT? 
ies BNE +N Y-58S 
126 MOV RO *SET UP KERNEL MODE ABORT ADR 
5127 ADD sCKILEK-. ,RO 
5128 BR 4§ ;G0 STORE THIS ADR 
S129 S8$: MOV Ri *POINT T WORDS - 1 
5130 ADD #16..R1 ON THE STK 
5131 MOV iSET BOR FOR, CK IF USER’S 
5132 ADD SINTRET-. ,R2 : DEV 
5133 60$: TST (R1)+ :POINT TO aK WK WD 
5134 CMP (R1),Re *THIS USER INT RET ADR? 
5135 BEQ 625 :N. Y-628 
5126 CMP R1, #STACK-2 "REACHED STK UPPER LIMIT? 
5137 BLO 60$ ?Y.N 
5138 665 -CAN’T FIND RETURN - LEAVE RET ADR ALONE 
5139 62S: SUB #12. RI "ALLOW FOR RS THRU 
5140 MOV SP.Re ‘DETERMINE IF USER WORDS ARE ON 
5141 ADD aa. R2 >THE STK 
5142 MOV R1,R3 
5143 SUB R2'R3 
| S14 nt eS {BR IF STK NOT AS EXPECTED 
c14s MOV R3, STKADJ ‘STORE STK ADJ VALUE 
| 5146 MOV 16. (SP). -(R1) *MOVE PSW UP ON STK 
5147 MOV PC: -(R13 *SET UP NEW RET ADR 
5148 ADD SUTRPRT-. , (R1) 
149 BR ;BYPASS ADR STORING 
| §1s0 64S: MOV , 14. (SP) *STORE IT IN PC ON THE STK 
ei5l 665: JSR R4’ RREG “RESTORE REGS RO THRU RS 
| 5152 MOV (SP)+,RS 
| §153 CMP {SP)+, #250 ;WAS THIS A MEM NGNNT TRAP? 
| 5154 BNE WS eee 
| 5155 MOV $1001, asMMMRO ‘EAR MEM MGMNT ERRORS 
5156 685: TST STKADS i1S STK TO oe ADJUSTED? 
| 6§157 BMI UTRPEX *Y N-U 
| 158 ADD (PC)+, SP sADJ STK BNTR IF TRAP IN USR INT 
| 6159 STKADJ: .WORD 0 
| 5160 TRPEX: RTI RETURN & TRY TO KEEP RUNNING 
| Site UTRPRT: MOV (SP)+,R5 ;RESTORE REGS RS THRU RO 
| 5163 MOV (SP)+'RY 





EEE — . “ en en 


om ere es ee ee cee ne > ~~ eee oo ee eee ee eee ~eeeeeeeee eee eee 
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8 4 MUV (SP )+,R3 
1 MOV (5P)+'Re 
5166 MOV (SP)+,R1 
167 MOV (SP)+_RO 
168 IMP RTNINT :GO TO USER INT EXIT 
2150 
5171 MPGTRP: JSR RS, CTYPE sISSUE MPG I.D. MSG 
5172 .WORD 4 
5173 .WORD TRPMPG-. 
5174 CLR aaMMMRO sDISABLE MEM MGMNT 
E175 HALT ‘TRAP WHILE MPG IN CONTROL 
5176 Jmp RST2 :GO TO RESTART 2 
5177 co0 .ENDC 
5178 
5179 001 .IF OF MM 
5180 IFF 
218! THLE MAINDEC-11-DTMGA-C MPG INTERPRETER 
5183 TITLE MAINDEC-11-DTMMA-B MPG INTERPRETER 
5184 000 END 
j 
{ 


| 


‘ 
i 


; 
' 
t 


oe eee oo ee ee 
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-SBTTL USER PROGRAM LANGUAGE PROCESSOR 
helslaieieieislelaleisisieiaielaleisieleielalelsleieiebeieieieieleieieieieieleieieieisieisisleislelelelaidieleld 


S SUBROUTINE PROCESSES USER ENTRIES EITHER 


CAVE a hao pects Tre ENTRIES OMe 
T_INOT A COMPRE 


UIUTUN UIUT UNION LI UU uni 
OO bs bo ho bo be ho pa ph pe Pe 
BESRREGL GSES | 


LINE AT A ED 

: FORN IN awl We RAL ba 5 HEN INSERTS 

: THIS PACKED STRING IN THE PROPER POSITION 

; IN RELATION TO OTHER PACKED ENTIRE AS 

: DETERMINED BY THE LINE ' CKS ARE 

: MADE TO NSURE THAT THE PACKED AND THE 
5200 : TUAL MACHINE CODE WILL BOTH FI : 
5201 : WITHIN THE E REM INI NG MEMORY SPACE. THIS 
e203 aie : IS eel N Beate OF A LINE Ho RPUMBER BE , 
S205 : CALLING SEQUENCE ISR RS,ENTER (MODIFY) (FETCH(COMPIL) 
Sand : ENTRY- R3 POINTS TO PROGRAM TABLE 
2203 : EXIT- BRANCHES TO COMPILER 
zs} 5 : KEKLAEHAARLALAAEKASAARASELERE LALA LRA LARA LA RRAALEEAKALHELE 
5213 : 
S214 013640’ 105267 002217 ENTER: INCB  LENTER sSET *ENTER’ FLAG 
5215 Ot s644: 116767 OOe2e6 002214 MOVB §_LASZER,LINNBR :SET 
pele 13652" 11g ? 002207 MOVB §_LASZER LINNBR#1 i SAVED 
5218 01 3bee" lige 7 rate MOVB Mra Whi ee it Bord -_ 
253 oi at eet: an bene T(R3) ,POBJST(R3) 5 BeSecT craRt 

teeinen 

e550 Were ste no0de2 1130 MOV PERCET CRS)’ LPROLN 
5222 O1s714" hae 001124 Sue RS, R ; INIT PROG LENGTH 
ass pare 05267 002134 MODIFY: INCB LMODFY ;SET MODIFY’ FLAG 
5225 01376’ 7 001272 LLPGFC: JSR RS, UPCI GET LINE FROM CONSOLE 
S226 013732" 15 LLPPAK ; THEN, GO PACK IT 
5227 1a 105267 601074 FETCH: INCB  LFETCH ‘SET ’FETCH’ FLAG 
5228 a ’ Ot goone MOV PSRCST(R3) , POBIST (R3) ‘INIT OBJECT START 
5229 013746’ 01636 001070 MOV PSRCST(R3) ,LPROLN 
5230 ete 7 001064 SUB R3, LPROLN s INIT PROGRAM LENGTH 
5231 013760’ 7 002120 ISR RS; UPLIO GET LINE FROM "SAVE’ DEV 
S232 013764’ 2 .WORD  LLPTFF-. 
e233 0137 be" 7 LLPPAK: MOV R3,LPKPTP ;SAVE PROG TBL PNTR 
B53 OLI77E" IOeTE? OOTEH? ioe CEAROR CRG Te ENTRY, 
5236 bt eae 1014 BNE LLPTFF i YES- GO Test FETCH FLAG 
5237 O14004" 105767 007237 TSTB = LDELET TEST DELETE F 
Be Beals. (ie) fe Chek : ter 
+ 14012" 1 007232 TSTB.) OL iI AG SET? 
Se40 014016’ 001414 BEQ LLPCOL *NO -GO CK OBJ LENGTH 
S241 014020’ 105067 007224 CLRB = LIGNOR *RESET IGNORE FLAG 





Oz 


See eee ee RRR AR RRR EL Cee aL Ce ene yee g a REE 


sw eesewewesesteeemlUmcwrmlUC/—ChUCChUCUCOhC« 


SSRRRRB Eee 


eaRaS 


UO £ 


ue fb? boo ba hat be be 
oo po 


LALCLEL LLL 


130° 


Pons hm bs Fs FR et fe Ft Pe Pe ee ee Bt Pt ps be 


PRRAP RARE SRO 


csoevw 8B Beseeseeweesese ese eee Ss 


OOOO OCOOOOOOOOO0000o0o 


a | Ml 
0 000506 
0 105767 
001503 
( 
1004 
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BR 
001002 LLPTFF: TSTB 
BEQ 
172164 JSR 
- WORD 
. WORD 
000630 JMP 
LLPCOL: HN 
007ele D 
13350 JSR 
MOV 
ADD 
MOV 
007172 ADD 
MOVB 
ADD 
000012 ADD 
ADD 
165334 CMP 
BLOS 
OO0S46 JMP 
007120 LLPTON: TSTB 
BEQ 
JMP 
013230 LLPDEL: JSR 
. WORD 
MOV 
013262 JSR 
000670 SUB 
MOVB 
ADD 
000024 LLPLP1: CMP 
BEQ 
MOV 
BR 
oood24 LLPODN: poe 
000640 SUB 
MOV 
020060 ADD 
MOV 
000726 ADD 
000011 MOV 
LLPLFe: MOVB 
DEC 
171766 aR 
- WORD 
. WORD 
O00S66 LLPGAL: T 16 
001656 JSR 
gerd 
000740 LLPMFC: JSR 
177476 LLPPKB: JMP 
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LLPGAL 
LFETCH 


LLPGAL 
golive 

LFTMSG-. 

LLPIEN 


Rl, 
RO, POBJST(R3) 


tt a 
R1, POBJST(R3) 


;GO_GET ANOTHER LINE 
wus FLAG SET? 


GET ANOTHER LINE 
TYPE FETCH ERROR MSG 
;GO0 INSERT END 
;PINT RO AT PACK BUFR 
;G0_CHECK OBJECT LENGTH 
:GET OLD PROG LENGTH 
;ADD NEW OBJ LENGTH 


;POINT Re AT PACK BUFR 


:VES-TEST DON DONE FLAG 
;NO~ TYPE WARNING 


Oe cee SET? 

;NO- EST IF FIRST STMT 
YES-TEST END 

SEARCH FOR EXISTING LINE 


;GET OBJ Leer 


;SUB OBJ 


Pitan 
GET LENGTH OF DELETED ENTRY 
;ADD TO ENTRY POINTER 


;MOVE REST DOWN ON TOP 


;UPDATE OBJ START ADDR 
;RECOVER ENTRY LENGTH 
;SUB SOURCE LENGTH 


; TYPE *NNNN DELETED’ 


;FETCH FLAG SET 
; YES-GET LINE FROM SAVE 


;NO-GET LINE FROM CONSOLE 


SES O11] 
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14270’ 010701 LLPLNF: MOV PC,RI 
253g pt iss. Boot 017775 ADD sL INBUF+5-. .R1 
5300 014276’ 010700 MOV 
2301 14300” 92700 000653 ADD sLAFMSG-. ,RO 
14204’ Ole702 o000le2 MOV #10. 
5303 O14 19; 1 LLPLP3: MOVB (RO)$,(R1)+ 
Sel 14312’ DEC 
14314’ 0013 BNE LLPLP3 
14316’ 7? 171702 JSR RS, CTYPE -TYPE ’NNNN NOT FOUND’ 
14322” -WORD 4 
14304" O1 “WORD LINBUF-. 
5309 014326" BR LLP 
5310 014330’ 016301 o00022 LLPTFS: MOV PSRCST(R3).R1 ;TEST IF FIRST STATEMENT 
5311 014334" 020163 000024 LLPLPY: CMP R1, POBJST(R3) 
S3l2 014340" 00 401 BEQ LLPADL :YES-GO ADD A LINE 
5313 014342’ 1 BR LLPCNH NO CHECK IF NEXT OLD HIGHER 
5314 014344’ 111200 LLPADL: MOVB (Re). RO SOURC 
531S 014346’ 060063 000024 ADD RO, POBJST(R3) ADD LENGTH TO OBJ START 
5316 6143S2’ 060067 O00466 ADD RO, LPROLN ‘ADD TO PROG LENGTH 
5317 014356’ 01920 MOV Re, Ro 
5318 014300" cero 013046 JSR * LCKOBL GO CHECK OBJ LENGTH 
5319 014364 060067 O004S4 ADD RO; LPROLN ‘ADD TO PROG LENGTH 
5320 014370’ 111200 MOVB  (R2),RO ‘GET SORURCE LENGTH AGAIN 
S321 014372’ ll2eel LLPLPS: MOVB  (R2)+,(R1)+ -MOVE NEW 
S322 014374" 005300 DEC RO ?IN AS FINAL STATEMENT 
5323 014376’ 001 BNE LLPLPS 
Be St des ome come LAM Bee Hage Se eee TG 
Ot Nae? BB TaBe Q {Bers CHECK NEW LN N NBR 
014412" 103473 BLO LUPINE IF < INSERT NE 
14414" O9040s BR LLPMBH :MUST BE > 
14416’ 126261 000003 OO0003 LLPCLS: CMPB 3(R2),3(R1) *CHECK LSB OF LINE NBR 
5330 014424" 001404 BEQ LLPRPL "IF = REPLACE L 
5331 ois * 103465 BLO LUPINE IF < INSERT NEW LINE 
S332 014430" 111100 LLPMBH: MOVB  (R1),RO 
5333 014432" 060001 ADD RO.RI ;BUMP R1 TO END OF OLD 
5334 O14434" BR LLPLPY "NOW SEE IF IT FITS 
5335 014436’ 0101 LLPRPL: MOV I, 
| 5336 O14440" 004567 012766 JSR RS, LCKOBL ;GET OLD OBJ LENGTH 
5337 ol 60067 Sug RO, LPROLN :SUB FROM PROG LENGTH 
e338 ft ’ 012754 JSR RS, LCKOBL ;GET NEW OBJ LENGTH 
Bato 14456" 2 Doda ADD RO, LN “ADD TO PROG LENGTH 
1 014462" 010267 MOV "LL *SAVE NEW POINTER 
este O1Hee 010167 000346 HOV RLLLPSOP i SAVE ot POINT 
9 : 
| 2ada g 447y’ 111400 HOVE (RI) RB GET OLD LENGT 
| §34S 014476’ 160200 SUB R2,RO :SUBTRACT OLD LENGTH 
bade 14500’ 060067 000340 ADD RO, LPROLN “ADJUST PROG LENGTH 
| §347 014504" 060063 000024 ADD RO, POBJST(R3) ECT START 
| §348 014510’ 005700 TST RO IF RO NEGATIVE 
| oai3 014512’ 100411 BMI LLPMON “HOLE TOO BIG 
6351 014514" 01 ooo024 LLPMUP: MOV POBJST(R3) ,Re 
| §352 o14S20" 1 SUB ie 
| $353 014522" 016300 00024 MOV POBJST(R3) ,RO :POINT RO AT THE TOP 
| 
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5354 Shas t 014240 LLPLP6: ped ait »7 (RO) TO RAKE A HOLE. UP 
eaep Bios rake BNE tear 6 ‘FOR THE NEW STATEMENT 
5357 014534’ 000411 BR LLPFLI ‘GO FILL IN THE HOLE 
5358 Hh 11102 LLPMON: MOVB  (R1),Re 
5359 014540’ beoeol ADD Re, Ri ;Ri POINTS aT NEXT 
e3et Biuews Oe OOOO RS ihe PO NTS EE 

1 614544" ADD RO'R iB P OINT WHERE IT SHD BE 
S362 014546’ 020263 000024 LLPLP?: CMP Re, POBJST(R3) 
5363 014552’ 001402 BEQ LLPFLI ies A We SO ONEH 
5364 O145S4’ Olelee MOV (RL)+, (R2)+ :MOVE EVERYTHING DOWN 
5365 014556’ 000773 BR LLPLP? -TO MAKE HOLE SMALLER 
5366 O14560’ 016702 o002S2 LLPFLI: MOV LLPSNP, Re ;RESTORE NEW AND 
5367 014564’ 016701 000250 MOV LLPSOP;R1 ‘OLD POINTERS 
5368 b1570" 111200 MOVB = (Re). RO *GET LENGTH 0 OF NEW ENTRY 
2953 Olue7e; Lleeel LLPLP@: MOVE (Re), (R14 a EW ENTRY 
5371 pt aeoe 001375 BNE LLPLPS 
S372 014600’ 000677 BR LLPGLB : THEN GET ANOTHER LINE 
5373 014602" 010067 000230 LLPINL: MOV Re, LLPSNP ‘SAVE NEW POINTER 
5374 014606’ 010167 000226 MOV RI, LLPSOP :SAVE OLD POINTER 
5375 014612’ 010200 MOV RO 
5376 014614" 004567 012612 JSR RS, LCKOBL ;GET OBJECT LENGTH 
5377 014620’ 060067 000220 ADD RO; LPROLN “UPDATE PROG LENGTH 
5378 O14624" 111200 MOVB  (R2), RO *GET SOURCE LENGTH 
5379 014626’ 7 000212 ADD RO, LPROLN ‘UPDATE PROG LENGTH 
5380 014632" 060063 000024 ADD RO; POBJST(R3) ‘UPDATE OBJ START ADOR 
5381 014636’ 000726 BR LLPMUP *GO MOVE EVERYTHING UP 
S382 014640’ 016300 000024 LLPTEN: MOV POBIST(R3) , RO 
O14644’ 162700 O0000S SUB 
5384 O1e5D" 1ee710 000240 CMPB 1346 (RO) ;LAST STATEMENT AN END 
S385 014654" 001 BEQ LLPFEX *YES-LETS GE OUT OF HERE 
S386 014656’ OO4S67 171342 JSR RS, CTYPE *NO-TELL USER 
5387 OiNbbe: pN04Oe .WORD 402 
5388 014664’ O00e30 “WORD LNEMSG- 
5389 014666’ OO0644 BR LLPGLB ; THEN GET ANOTHER LINE 
£390 014670’ 004567 171330 LLPWRN: JSR RS, CTYPE “TYPE MEM LIMIT MSG 
539 BiNe?y" .WORD «4 
23¢5 14676’ “WORD LMLMSG-. 
5393 014700’ 016302 000024 LLPIEN: MOV POBJST(R3) .R2 :NOW WE INSERT AN END 
5394 O1u70 Obe763 900006 o00024 ADD 6, POBJST(R3) “BUMP OBJECT START BY 6 
6395 014712" 11 DODCOE MOVB 86; (Re)+ :STORE LENGTH 
53% 014716’ 1l27e2 O000e40 MOVB (R2)+ ig! FUNCT. CODE FOR END 
2327 14722" 114631 MOV #114631, (R2)+ :OT F i 

14726" CLR (R2)+ :ST FOR CAL ADDR 

5399 014730’ 7 Q00012 000106 ADD #10 LPROLN : LENG 
eto 14736’ 01 op00e4 MOV POBIST(R3) ,Re GET OBJE STAR 

i 014742" 61 1 MOV Re, CVMST N FREE MEN 
Buns piuzee® Aipees ROY rate ae 
5403 014750’ 01 000026 MOV Re; PLNGTH(R3) E P CENGTH IN TBL 
cube Oluyee nts i LLPFEX: FOV Poeiet cea), Re 
Bube Olues” OiGee> TeaNeO MOV RSCEUMS cH OR JERE NEN START 
ean Baye: yee aby a ee PDAT - L NETH IN TBL 
6409 014774" O10ces anny TSTB = LFETCH i TEST ETCH FLAG 
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10 015000’ 0014 BEQ LLPRFL IF RESET, CONT EXIT 
411 ieariee Boas 163040 JSR RS, JGET -GO VALIDATE CHECKSUM 
s¥le 015008" 177020 - WORD LLPTFF-. ;ERROR IF NO GOOD 
sug Bistie: Opob8 18 
1S 015014" 1 001043 LLPRFL: ¢LRB _- LENTER 
Sui6 015020" 105067 001036 cLRB LNODFY CLEAR INTERNAL FLAGS 
Bulg Stebsd- Abares Bisssa compit: JRE. LEBICE EXIT 
S419 015034’ LFETCH: .WORD O 
pe 015035" PSNP: .WO 2 ;SAVED NEW POINTER 
421 015040" LLPSOP: [WOR ‘SAVED OLD POINTER 
Suz2 915042" LOBJLN: .WORD 0 
Stes o1s044’ PROLN: .WORD 0 TOTAL PROGRAM LENGTH 
S425 015046’ 052116 OS4101 LFTMSG: .ASCIZ /SYNTAX ERROR ON SAVED PROG-END FORCED/ 
0150S4’ 051122 051117 
015062” 020116 040523 
015070’ 020104 051120 
015076’ 04 042116 
15104" 051117 042503 
Sy2p 015114" 052123 OS144O LNEMSG: .ASCIZ /LAST STMNT NOT AN END/ 
| 015122” OS2116 047040 
| 015130’ O4O44O 020116 
015136’ 000104 
| S427 O1514e" 046105 OS210S LDLMSG: .ASCIZ <O11>/DELETED/ 
| sues 915153" 052117 O43040 LNFMSG: .ASCIZ /NOT FOUND/ 
015160’ 042116 000 
| 429 015165" OuES0S O46040 LMLMSG: .ASCIZ /MEM LIMIT EXCEEDED-END FORCED/ 
015172" 111 O42440 
| 015200" o4 042504 
015206’ 047105 020104 
015214’ 041522 oO42105 
015222” 
i 
| 
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es 


= 


x os 
iy 
— 


Sry 


ie 


Fa EES REE RA TARTS 
5 
8 


seeveeseesee8sesss#ses#esseetseseses#esesseswseesesetstsesess¢ 


fe Da ps Be bet bas fs be bw be bs Bet Bm be Po bt bn foe Bo fet Pe a ee 
~ 
(—} 


= 
yew 


ee eeviits 


io 


See 


peieareteis 


e 


000110 
017030 
000015 
170752 
000576 
162540 


000574 
170710 


o00ss0 
170664 


o00S26 
162450 
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017122 


000532 LSPTST: 


016706 


; 
H 
° 
, 
7 
, 
. 
’ 
. 
, 
. 
J 
. 
, 
. 
s 
. 
’ 
. 
, 
. 
$ 
. 
s 
. 
’ 
‘ 
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OUTPUT 


TIAL LINE NUMBE 
ONE SUPPL TED BY THE ise 
IS TO INPUT ONE LI 
ee ENTERED IT DOES ONOT 


.SBTTL USER PROGRAM CONSOLE INTERFACE 





+ EEKEREKAK KEELE REE EL ELLER ERE EER AEL ERE R EL EE RELELER ERE ERS AREAL ELE 


THIS ROUTINE CONTROLS THE CONSOLE oe 
INPUT NT Nee ed THE he 


ACCEPT THE 
OF tts MAIN FUNCTION 
USERS PROGRAM. 


EXIT UNTIL 
AGE RETURN IS RECEIVED FROM THE KEYBOARD. 


CALLING SEQUENCE- 
SES SESE SEE SESE SEE SEER SEE ESE JER ESE EE SESE SERIE SEE EEE EEE EEE EE EE EE 


#72. ,RO 


#LINBUF-. RI 
#015, (R1)4 
RO 


1 
LCBUF ,LCRLF 
LSPTSt 

RS CTYPE 


LCRLF-. 


LRE 
tia 
a CTYPE 





RS, UPCI 





;CLEAR INPUT AREA 


; TYPE A GTR THAN SIGN 


; TEST MODIFY FLAG 
- IF GO READ 72 CHAR 
*READ FROM TTY - NO ECHO 


; TEST FOR_A CARRIAGE RETURN 
GO TEST FOR A SP 
TYPE CARRIAGE RETURN-LF 


;GO GET 


NEW INPUT 
;T st IF IT WAS A SPACE 
INCREMENT LINE NBR 
OTHERWISE” ECHO THE CHARACTER 


;AND MOVE IT TO THE LINE BUFFER 


READ FROM TTY 


;G0 FIRST THE LINE NUMBER 
IF FIRST TIME THRU 

DON T INCR LINE NBR 

; TEST BAD LIN NBR FLAG 








Pil 
pam Eee 
BG fie: 
S491 15410" 
Be Hel: 
ne Hes. 
Re Hine: 
5497 015434" 
ne fies: 
5501 bieuso’ 
5502 Bieuee” 
5503 Bi euens 
5506 Oise 
5507 BieNze" 
S508 015476’ 
5509 ates 
S510 01550e’ 
5511 015506’ 
Bb he 
Si fies. 
5516 Wes 
Si flee: 
5519 015544’ 
5520 teat 
5523 bieeee’ 
S524 015560" 
556 DIEeEE’ 
SSe7 01557e’ 
S5e8 015574" 
p59 015600" 
5531 OiseoH" 
5532 tare 
5533 015612’ 
5534 015616’ 
seu Olsbee” 
5537 bee se” 
5538 015626" 
eat 
S541 015646’ 
5542 015650’ 
5543 015652’ 


| 
| 
| 


| 
| 
| 
| 


MAINDEC-11-DTNGA-C 
DTNGAC. 


—-OO 
ae pace pe 


Rae 


— 
-— 
Oo 


Se 


-O- 
Male 
ir 


§ 


8 
8 


: 


a8 


EN he 


: 


eee 
ett 
ones 


S 


bs 
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005643 
003660 
sa 
000443 
000434 
000427 
000420 
000413 
000405 
000401 


170516 


i 
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rae 
sia 
LBDLIN 


PC. RO 
#L INNBR+3-. , RO 
LASZER, (RO) 


(RO), LASNIN 
" eeedane 
(RO), LASNIN 
LASZER, (RO) 
RO 


LASNIN, (RO)+ 
oie 


NNBR, LINBUF 
NNBR+2, LINBUF +2 
Red LINBUF +4 


ru £2~r- 
222 

Be 

+ 

mn 

1 


2 eee 


—e 
~ 
= 
— 
jw 


FSNCRESCR 
% 
3 


RI 


BSeSuahs 
Bg 
= 








;1F SET, DO — 


if BRR R 
ONT INCR LINE NBR 
;CLR BAD LIN NBR FLAG 


ACT RRERIF© ASCIT DIGIT 


ES, REPL 
“MOVE POINTER TO NE 
"1S IT A NINE ? 


MENT DIG 
:TYPE OUT LINE NUMBER 


;MOVE COMPUTED LINE NUMBER 
;T0 LINE BUFFER 
tREAD FROM TTY 


;GO UPDATE LINE NUMBER 
;READ FROM TTY 


;SET POINTER AT LINE START 
iYES - CHANGE TO CR 
YES - END OF LINE FOUND 
°NO - CHECK NEXT BYTE 

ORE CR 
SET POINTER aT LINE START 


L 
CLEAR FIRST TIME FLAG 
set biG T COUNTER TO 3 


em FOR NUMERIC 


; AGE RE 
pI CHECK ie NUMERI 
CARRIAGE RETURN 





a ademas 
DTNGAC.P 


S544 OI5ESE" 
5545 Ol 
su? Ol 
see Ol 
5549 015674 
eee] 18700 
ese 015708 
Bee nee 
s555 015714 
5556 Ol 
5557 01 


EULER RRDODRERER EDR 


sevsesesests683t—h—UOUCUCU OU WCU UCU HC] V]?C BHT BVBVEOBesesesesetmlUWMmCUMUC OU OCCU? ]O BC BPO SeCOCUSeUhUh TC HCO VHehU OC TTCUc CUT CT HO 


OL 

: 

: 

: 

: 

: 

DIEDIB 

bie014 
Sat tte 
os figs 
S584 Bibbs 
ae 
Se hes 
5589 D1e0s0 
5590 016056 
Zees , z 
Ss pipe: 
5594 016063’ 
5595 016064’ 
55% 016066" 
5597 01607e 
5598 016074’ 
$599 016075’ 
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poi s9> 
0004 
hey 000210 LUPDL2: 
eats 000203 
101070 
Tie? 000160 
001410 
121167 000160 
001405 
id 000015 
005200 
Basa LISTFY: 
062701 016332 
020027 o00000 
001440 
002417 
Mitte: 000110 
10102 
ee 
rae 016304 
114142 RJUST1: 
1378 
116742 000102 LRJSTe: 
1 
4 1 LLJUST: 
010100 
000050 LSPFL: 
001374 
lllee2l LLJST1: 
116722 000036 
121267 000032 
eyes 
l2le67 000032 
001367 
tee 016214 000016 LSAVLN: 
16767 Ol6210 Oo000l2 
oo020s LUPCIX: 
000076 LGTRTN: 
000 LMODFY: 
000 LENTER 
000040 LSPACE: . 
030060 030060 LINNBR: . 
000011 LTAB: . 
001 LON: 
000 LOFF: 
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BNE LUPDL1 
BR LUPCIX 
cnPe (R1). LASZER 
CMPB (R1) LASNIN 
HI Pcix 
INC Lup 
CMPB RA) LSPACE 
BEQ STFY 
CMPB tay LTAB 
BE JSTFY 
CMPB ss (R21). #15 
BEQ LISTFY 
DEC 0 
BR UPDL2 
MOV C.R1 
ADD #LINBUF-. ,R1 
CMP 0. #0 
BEQ SAVLN 
BLT LLJUST 
ADD #72. .R1 
MOV Rl, 
SUB RO,Ri 
MOV PC’ RO 
ADD #L INBUF-. , RO 
nOvE = (Ri), 17 (RE) 
BNE tad 
MOVB = LASZER, -(R2) 
CMP R2. RO 
BNE LRIST2 
BR LSAVL 
MOV R1,Re 
SUB RO, Re 
MOV R1.RO 
MOVB LSPACE, (RO)+ 
CMP RO, Re 
BNE LSPFL 
MOV (R2). (RL) 
MOV LSPACE, (Re 34 
CMPB = (R2) , LSPACE 
BEQ LSA AVLN 
CMPB 3Es«(R2) LAB 
BNE LLISTI 
MOV LINBUF , LINNBR 
MOV LINBUF +2, L INNBR+2 
RTS RS 
.ASCIZ />/ 
“BYTE O 
“BYTE 0 
ASCIZ // 
ASCII /0000/ 
ASCIZ <1l> 
“BYTE 1 
-BYTE O 


sL 
;RETURN TO CALLING PROGRAM 


SEG 0117 


;CHECK NEXT_CHARACTER 
: OTHERWI XIT 
sIF_LESS THAN ASCII ZERO 


*EXI 
IF NORE THAN ASCII NINE 
Avance CHAR POINTER 
;START TO JUSTIFY 

TAB NEXT 
START TO JUSTIFY 


:IF CARRIAGE RETURN 

:LGTRTINT TO JUSTIFY 

; DECREMENT 1 hee COUNT 
HARACTER 


‘OF LINE BUFFER 
; START SHIFTING LINE 
: SHIFT COMPLET E 7 
SHIFT SOME MORE 
ICL IN LEADING ZEROES 


;GO_ SAVE JUSTIFIED LINE NBR 
:SET Re TO LINBUF ADDRESS 
SEPARATE BY AMMOUNT TO JUSTIFY 


; CLEAR LEADING ZEROES 
sALL CLEAR 


‘IF NOT CLEAR SOME MORE 
;KEEP SHIFTING 

“AND INSERTING 

:IF LAST CHAR NOT A LSPACE 
“SHIFT SOME MORE 

‘IF LAST CHAR NOT A LTAB 
‘SHIFT SOME MORE 

; SAVE CURRENT 


; LINE NUMBER 
;HORIZLONTAL LTAB 
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om cag 
em BEI 


USER PROGRAM CONSOLE INTERFACE 


p60 LASZER: . 
LASNIN: . 
COO LCBUF : 


ocobte FSTTME: 
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I 
‘CHARACTER BUFFER 
;FIRST TIME FLAG 


Beee | 


aaa aad 
MON UI£ WHC 


PEPXPKKSKOKMKKKKKrrwrow 
Ds De ae ba fm as be Pan bas Pas Pee Ps ae ae be Pe Bo 


RIALS RS SESS Re LAAAMAA AAA LAL E RELI 


F 
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USER PROGRAM LIBRARY INTERFACE 














-SBTTL USER PROGRAM LIBRARY INTERFACE 
HEUER UHURU EES AH EEE EEE EEE 


THIS ROUTINE READS PROGRAM SOURCE STATEMENTS 

; IN BLOCKS FROM THE LIBRARY DEVICE 

AND TRANSFERS ONLY ONE STATEMENT TO THE 

; LINE BUFFER EACH TIME IT IS CALLED. 

CALLING SEQUENCE 

JSR RS, UPLIO FIRST CALL 

; .WORD  ERRTN-. 

JSR RS,UPLI SUBSEQUENT CALLS 

; . WORD ERRTN-. 

EFELFSESERFERESHKELESK ELE LESSER SRE LS LAL SARE RERFLELESEAEELS REEFS H SKA S EES 





Shanes 


04’ UPLIG: JSR RS, aGET GET FIRST BLOCK 
19° is ae . WORD ‘eee 
if tT Ete: “ORD 
16’ MOV LLIEW1,LLIBP 
es MOV LLIEW2, LLIBC 

, UPLI: MOV PC. Re 
Hy’ ADD sL INBUF-. , Re 
40° MOV LLIBPT, RY 
44’ LLITBC: TST LLIBCT 

, BEQ LLITMB 

. MOVB (R4)+, (R2)+ 

° DEC LLrect 

, CMPB Os = (Re), #12 

’ BEQ LLIEXT 

, BR LL TBC 

, LLITMB: MOV 

’ TST (R4} 

, Beg LLIERR 

, SR RS, aGET 

, -WORD LLIERT-. 

, LLIEW3: -WORD OO 

, LLIEWH: -WORD 0 

, MOV LL TEHS, Ri 

« HOV ttl *LLIBCT 

, LLIERR: JSR BE CivPe 

, . WORD Hle 

° se Lb EMI1-. 

, LLIERT: ines LERROR 

, (RS), RS 

’ RTS RS 

y LLIEXT: MOV RY, LLIGPT 

’ TSI (R5)+ 

, RTS RS 





ee ee ee oe ee ee 


ee ee eee ee ee ee et ee + en a ee eee ce ee see ree ee ee = 
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" DINGAC.PLI USER PROGRAM LIBRARY INTERFACE 
SZ O1E260" OYBSOS 020124 ON7117 LLIEMI: .ASCIZ /FMT ON SAVED FILE/ 
O16266' OS144Q 053101 O42105 
cegq OUSerH OHIO HEIL 00105 a 
| 5664 016202" 090090 LLIBCT: :WORD 9 :DATA LENGTH 
E65 016304" OO0000 CLIBPT: (WORD 'BLOCK CHAR POINTER 


[a 


rs ee re rn et em ee a a A 


| a: 
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PACK SUBROUTINE 





S667 .SBTTL PACK SUBROUTINE 
ag) 5 EAHFRAFEAKAAALARAAARAAAAAARA SALES LAAALASLAAFAALALSSLEFASSFALSFLSFALAAEE 
ae50 : THIS SUBROUTINE EXAMINES ONE LINE OF @ 
5672 : USERS PROGRAM ONE WORD AT AT TIME AND 
bcs : CONVERTS IT TO AN INTERNAL PACKED CODE. 
br : CALLING SEQUENCE ISR RS, PACK 
B67 : ENTRY USERS STATEMENT IS IN LINBUF 
5579 : EXIT PACKED STATEMENT IS IN LPKBUF 
Sea : SLAAAALERELSLESFAAEKRELAESELAALAELELAARALSFSARASRALERRAAARELERELALA SELF KLE 
Sb83 
16306’ ? ? PACK: CLRB L RESET ERROR FLA 
ope Atte Apepe> 53 CLR LEONE RESET BONE AND DELETE FLAGS 
apes Olese6" ptt mov URW’ 2eeP) SAVE R3 AND RY 
5689 tease" 1D 000110 MOV 872. .RO . 
5689 016306’ 010703 PC, R3 
5690 016330’ 004734 ADD SLPKBUF-. ,R2 
2531 16334" LPKCBF: CLRB (R3)¢ ;CLEAR PACK BUFFER 
4 16336’ DEC RO 
5693 016340’ BNE LPKCBF 
94 ol ’ SUB 872. .R3 :SET OUTPUT POINTER 
9 016346’ PC. Re 
56% 016350’ ADD sLiNBUF-1-.,R2 ;SET INPUT POINTER 
4 OlbseH MOV Re, LSCNPT AND SAVE IT 
4 16360’ JSR RS; SCAN :SCAN FIRST WORD 
16364" MOV PC 
16366" ADD . Re 
1 016372" MOV : 
5702 016376’ SUB R4'RO 
570s O16400° LPKLP1: CMPB © (R2) +, (RO)+ WAS FIRST WORD *DONE’ 
5704 O1640e2" BNE LPKCLA *NO-GO CONVERT LINE NBR 
5705 Oi6¥o4’ DEC RY 
270 16406’ BNE LPKLP1 
16410" LPKSDN: INC LDONE ;YES-SET DONE FL 
5708 GIEAIY: BR LGOEXT :THEN FIND EXIT 
5709 016416’ LPKSIG: INCB = LIGNOR : OTHERWISE I 
2710 ot , BR LGOEXT 5 AND XIT 
11 O164e4" LPKSOL: INCB T :SE ETE FLAG 
5712 016430’ BR LGOEXT “AND EXIT 
5713 ibs , LPKNLN: JSR RS, CTYPE 
6714 O16436’ WORD 4 e 
ris 1 “ WORD lo-. 
16 Ol6442" INCB IN ;SET BAD LINE NBR FLAG 
5717 Ole446’ INCB LERROR SET ERROR FLAG 
2718 16452" LGOEXT: JMP LPKEXT 
i pa i , LPKCLN: DEC a 
| 5721 O1646e" JSR RS, ASDECO ;CONVERT LINE NUMBER 
| S722 O1b466’ -WORD LPKNLN- :TO PACKED DECIMAL 
Sictnsasitexieil tian — — 





ee 
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ll PAC 
5723 016470’ 116063 000001 oD0002 MUVB —«-1(RO),2(R3) 
16476" 000003 MOVB g(r )'3(R3) ; STORE IN PACK BUFFER 
esc" JSR S ‘GET NEXT WORD 
16510’ 122710 o00015 CMPB 3 sa# 1. (RO) LIF CARRIAGE RETURN 
2787 bibs1y, poi 749 BEQ LPKS G :GO SET IGNORE FLAG 
16516’ 01 LPKILU: MOV C.R 
5729 016520’ 003230 ADD SLPKTBE-. ,R2 
2730 16524" O1 MOV Re, (Re) 
1 016526" 01 MOV PC Re 
5732 016530’ 002560 ADD SLPKTBL+6-. ,Re SET POINTER TO PACK TABLE 
5733 Ole 34" Ooseb/ 002536 INC LPKIFL SET INTERNAL TBL FLAG 
5734 016540" LPKL2S: INC RO 
5735 016542’ 2b 003202 LPKCTE: CMP LPKTBE, Re ARE WE AT TBL END? 
5736 OLbSY 1 NE LPKSCC NO-SA OUNT 
5737 ol ; 7 p0esz2 Ist LPKIEL : IF INTERNAL FLAG CLR 
2733 Bikeees pooNoe tEKEEX mes , 
5740 016560’ 000167 OOOH LPKEB1: JMP LPKERR ‘ELSE TAKE ERROR EXIT 
5741 016564" 7 LPKSEX: CLR LPKIFL CLEAR INTERNAL TBL FLAG 
S742 016570’ O16 002474 MOV LPKPTP, R2 ‘DETERMINE END 
5743 ed 000352 ADD SPTLGTH+DVVTEP, Re : 
£744 016600’ 061 ADD ‘EXTERNAL PACK TABLE 
S745 016602" ADD Re 
erie 16605’ 61 136 MOV Re’ LPKTBE 
16612" O16 co2452 MOV TP, Re ;POINT 
5748 016616’ 000350 00 SPTLGTH+DVPTEP, Re “AT START 
5749 Ol66ee’ 061 R2) Re EXT PACK 
5750 Ol66c4’ 003120 CMP LPKTBE, Re “ARE WE AT TBL END? 
5751 016630’ 001753 BEQ LPKEBI “YES = 
5752 016632’ 062702 000006 ADD #6, R2 ‘ADJUST Re 
5753 016636" 000741 . BR LPKCTE :CHECK IF START = END 
pe ot ’ 610104 LPKSCC: MOV R1,RY ‘SAVE CHAR COUNT 
i6642" 010267 cove MOV LPKPSV *AND TABLE POINTER 
5756 016646’ 124042 LPKLP3: CMPB -(RO), -(R2) :COMPARE ONE CHAR 
2737 ot , 1 BNE PKNXt! : Mi T=CHECK NEXT INST 
16652" DEC y : CHAR COUNT 
5759 016654’ 001 BNE LPKLP3 “LOOP IF MORE TO GO 
5760 016656’ 1 000005 CMP #6, Rl TP OHORD COUNT = & 
576 ot * 001414 BEQ LPKIFD : INSTRUCTION FOUND 
16664" oo0040 CMPB sé. - (RD IF NO LEADING BL IN TBL 
Oibb70" 1366 BNE LPKLP3 :CHECK NEXT INST 
5764 Olbb7e! 00410 ees “iden BR LPKIFD : j INSTRUCTION. FOUND! 
Sree Berio, Olek Ginate ny a ar IN 
16706’ le MOV LSCNPT; 
5768 016712" re cums BR LPK : CHECK NEXT TABLE ENTRY 
2558 Biesde ale peaseo CMPB) sé?) wes ;WAS IT DELETE ? 
5771 O16 * 001637 BEQ LPKSOL "YES = GO SET FLAG 
5772 1b7e6* ielee? 000256 CMPB sé (Re), 82S *WAS IT ? 
trnt Blerar HIS oom cine iter peter giion cove 
t e 
ae 1eoa0" 1 eee at: i : CHECK FLAG BYTE 
5776 016744" 001402 BEG LPKCIO 
5777 016746’ 000167 001104 IMP LPKSPH ;SET MEANS SPECIAL HANDLING 
6778 016752’ !21227 000317 LPKCIO: CMPB (Re), #317 





I 


me 


PACK SUBROUTINE 


$779 16756" 101014 BHI LPKCDE “BRANCH IF 1/0 CMD 
16760’ lele27 000120 CMPB Ss (R2). #120 
16764" | y? BLO LPKSSP :BRANCH IF NOT READ 
16766’ lel227 000137 CMPB (Re), #137 


L 
000160 CMPB sé (R22). B1GO 
li BLO LPKSSP :0R BREAK 
lel2e7 000167 CMPB ss (R2). 8167 
LPKSSP 


Bid 
LPKCDE: (Re) RO ;FUNCTION CODE TO RO 
:P TBL P 


;WRITE 


SSNS 
Sera Ss 

Z 

a 


OoOOO9O 00000000 


_ — re, ie) A e 4- ad $ l- 1 
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e7ee 
5734 
5785 
5786 
e7ee 7012’ O16702 O022Se2 MOV LPKPTP, R2 . 
5730 17018 DoNsb? 010612 ISR RS, FENTRY ‘CHECK IF FC SUPPORTED 
> GIDE” OIETE? 74 DO757 LPKSSP: MOV LSCNET.L SPTSV SAVE POINTER 
é : ’ ‘ 
eas Bishae’ Bleshe bodeee Noy CEB’ RB i BEY REAM boat 
5794 017036’ lel2e7 000237 CMPB ss (R2) , #237 “IF NOT MULTIPLE FORMAT 
or O17 Ne 101045 BH LPKSYP :DONT GO ADD WC TO FC 
17044” CL *SET WORD COUNT=0 
. §797 017046" 004567 007334 LPKLP4Y: JSR RS, SCAN -SCAN FOR NEXT WORD 
eras DISUSE’ OBidde COCs on) VES CHECK TF BREEK 
5800 Went eaeed INCB *NO-INCREMENT WORD COUNT 
5801 017062’ 000771 LPKLP4 ‘SCAN NEXT WORD 
pB0e 017064 1 000003 LPKCBK: CMPB RY, #3 :WORD COUNT < 3 ? 
17070" 1 BLO UFC YES - CONTINUE 
5804 1707e" 1 000001 000160 CMPB  —s-:-I(R3), #160 IF NOT A BREAK 
5805 017100" 1 BLO Ri :CHECK FOR RD OR WR 
S806 017102’ le63e7 000001 000167 CMPB sd R33), #167 :IF NOT RD, WR OR BK 
2a07 017119" 10 LPKUFC :GO UPDATE’F C 
17112" 1 000003 MOVB #3, RY :JAM 3 INTO WD CNT 
5809 017116’ 15 BR LPKUFC 
| $810 17160" 120427 o0000S LPKCRW: CMPB = RY a5 sWORD COUNT < 5 
5811 017124 10341 BLO LPKUFC “YES - CONTINUE 
5812 017126" 1 000001 000120 C 1(R3), #120 ‘IF NOT A READ 
5813 017134" 103406 BLO LPKUFC : CONTINUE 
5814 017136’ 1 000001 000137 CMPB =s-s (R33), 8137 IF NOT A WRITE 
5815 017144" 101 BHI LPKUFC : CONTINUE 
5816 017146’ 112704 O00005 MOVB 85,R4 : JAM 5 INTO T 
5817 017152" i 000001 LPKUFC: BISB  R4,1(R3) ADD WORD COUNT TO F.C. 
5818 017156’ O1 LPKSVP: MOV PC’ RY SET POI 
5819 017160’ 002572 ADD #LAPNTR-. RY “MODEL STATEMENT VECTOR TEL 
5820 017164" 121463 00000! LPKLPS: CMPB  (R4), 1(R3) :CHECK F.C. IN TABLE 
S821 017170’ 001450 BEQ LPKSMP “BRANCH IF FOUND 
171 7e" see7 14 000377 CMPB 0 s«# 377, (RY) :TEST IF END INT TBL 
17176’ 001403 BEQ LPKSEV *YES-SET EXT VECTOR 
5824 017200’ 062704 000004 ADD 4 : POINTER 
SESE DI 7ohe BiEreH 002056 Lexsev: fev _ CPRPTB.RS COT ERMINe END 
5827 017ele’ 000354 ADD SPTLGTA+DVCTEP, RY : 
| §828 017216’ 061 ADD (R4), RY ‘EXTERNAL VECTOR TBL 
| i * OIE7B4  DOStH HOV Ri LAS TBE POINT R4 AT START 
| east o1res0" eM peace ADD SPTLGTH+DVVTEP, RY : OF 
| §832 017234" 061404 ADD (R4) RY ‘EXTERN. VECTOR TABLE 
| 6§833 017236’ 020467 002036 LPKLP6: CMP R4, LASTBE "RY AT TBL END? 
| 5834 017242" 001472 BEG  —LPKERR ;YES - ERROR 
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G10 
TMGAC.P1 PACK SUBROUTINE 
eS irs: Burts nh ES tolint 
BR LPKLP6 E 
asi Boo RG 
000006 
2 ADD 
RY) Re 
BR 
000002 ADD 
ADD 
BASE Re S 
LPKVAR 
LPKLIN LINE NB 
LPKEXT EXI 
BNE LPKCEM 
o00S46 IMP 
BR 
(Re OF MODEL ? 
BEQ 
BUMP <flovet POINTE 
| 


5835 g17euy" 121463 000001 CHP (RH) (RS) 
815520 ooouo4 BO 
S838 017256’ 000767 PKL 
5839 O17e60; ? por au4 007336 LPKSEP: MOV LSPTSV, LSCNPT 
5841 OL , as ADD #6,R3 
Ba 17276’ O16 1766 MOV LPKPTP, Re 
Sey ot * 062702 ppdes SPTLGTH, Re 
Se44 017306’ 061402 ADD (RY) 
584s 1731 * 000411 LBASE1 
ta46 017312’ 016767 007312 907304 LPKSMP: MOV LSPTSV, LSCNPT 
5847 017320" aDD ue, RY 
eeus ote 350° ined MOV (R49) Re 
oe ae Wet iG oS LBASEL: MOV PCRS 
5852 01730" i227 Baa55 LPKCNB: CHP #377, (Re) 
obey = 173 122712 000376 CMPB —s- #376, (Re) 
5855 017352’ 001440 BEQ t 
S856 017354’ l2 000373 CMPB ss: #3773, (R2) 
5857 017360’ 001425 BEQ 
5858 O17 se, iter 000375 CMPB =: 8375, (Re) 
Peed OL7seR BooTe? tEKeTT 
5861 017374" 7 003651 LPKDER: INCB LERROR 
17400" 1§ LPKEXT 
17402" 10571 LPKCEM: TSTB ) 
S864 O174O%: 001404 BE LPKCUE 
epee ee Br BSeS 003646 MOV R2, LPKMPS 
5867 O1miy: 7 BR LBASE1 
5868 017416’ 7 006764 LPKCUE: JSR RS, SCAN 
5869 Ol7iee’ 1ee719 O000IS cHPB #16 (RO) 
5871 Ose os 004664 LPKERR: JSR tg 2 
6872 017434’ 010702 LPKEXT: MOV PC‘ Re 
5873 17a 062702 003626 ADD SLPKBUF-. ,R2 
5874 017442" | SUB Re, R3 
5875 tana it 1 LPKSTL: MOVB RB, (R2) 
5876 017446’ O01 MOV (SP)+,R4 
5877 017450’ O1 MOV (SP)+'R3 
2878 i ’ RTS RS 
ceo) times (ein Woe | Ey STR 
5881 nna nae BEQ LPKERR 
pees 1 ? 000114 MOVB gol (ha)e 
17472" 022652 JSR co 
5884 017476’ 1 .WORD  L -, 
68985 017500’ 111023 MOVB (RO), (R3)+ 
See 017502" 11 000001 MOVB  1(RO3, (R3)+ 
£987 017506’ | po000e2 MOVB  2(RO),(R3)+ 
6888 017512’ 105710 TSTB —s-« CRO) 
5889 017514’ 001345 NE LPKERR 
6890 017516’ 112763 000377 177775 MOVB #377, -3(R3) 


SEG 9124 
;CHECK F.C. IN TABLE 
; BRANCH Ceo 


CHECK NEXT ENTRY 
“RESTORE SCAN POINTER 


;ADJUST PACK POINTER 


;SET EXTERNAL MDL PTR 
;RESTORE SCAN POINTER 
;ADJUST PACK POINTER 
;SET MODEL POINTER 


;BRANCH FOR VARIABLE 


;BRANCH FOR R 
;1F ina OF PRINT STATEMENT 


;BRANCH FOR BIT NBR 
sagt RROR_FLAG 

3GO TO EXIT 

;END ? 
;YES-CHECK USER ENTRY 
3 NTER 


‘CHECK NEXT BYTE OF MDL 
'END OF USER ENTRY? 


; YES-EXIT 


;NO-REPORT ERROR 


;CALCULATE PACKED LENGTH 
;STORE IN FIRST BYTE 
;RESTORE STACK 


;STORE IN PACKED CODE 


;ERROR IF _LINE NBR 
;GREATER THAN 4 D 
;REDUCE TO 4 DIGI 





i nn a re ee cee oe cee 0 re ES Oe 
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5scl 17524" 00s267 003532 LPKAMP: INC LPKNPS ; ADVANCE MODEL POINTER 
2B35 pies tears MOV PBR S, Re i BEC TORE HOSEL POINTER 
oe 17540" 12710 009015 CMPB ssa, (RO) ‘WAS IT A CARRIAGE RET? 

17644’ O01 BNE LBASE! *NO-CHECK NEXT BYTE 
58% 017546’ 105712 TSTB sR) ‘END OF MODEL STATEMENT? 
Bea Bisees> Booes0 Bre CL BK EST eR 

’ R LPKEXT : YES-EXIT 

5899 O1 7554 OO04S67 006626 LPKVAR: JSR RS, SCAN ‘SCAN VARIABLE 
53900 017560’ 122710 OO0015 CMPB  s-#18, (RO) WAS IT A CARRIAGE RET? 
2301 Oireee: 001721 BEQ LPKERR ; YES-ERROR 
cans Ogee Oolaes BEG LPKOCT 
5904 017572’ 160100 SUB R1,RO 
2305 17574° 126067 000001 176274 CMPB  —«:.1(RO) .LASZER :SECOND DIGIT NON NUMERIC? 
So? DIZEN’ ISEOE? OOOD01 176265 Some TERO) LASNIN SECOND DIGI? NON NUMERIC? 
Boog pisere? erRes ete TAa a eee 
5909 017614’ 122710 000104 CMPB —s«#’°D, (RO) “FIRST CHAR A ’D’ 
5310 17520" 00 431 BEQ LPKDEC YES-PACK DECIMAL 
5911 017622" 10 000117 CMPB Ss #0. (RO) ‘FIRST CHAR AN ’0’ 
pale 017626’ 001406 BEQ LPKOCT *YES-PACK OCTAL 
5914 017630’ 121067 176242 CMPB = (RO) ,LASZER sFIRST DIGIT NON NUMERIC? 
S91S 017634’ 103442 BLO LPKT : YES-PAC: 
5916 017635" 121067 176235 CMPB (RO) .LASNIN ‘FIRST DIGIT NON NUMERIC? 
5917 017642’ 101037 BHI LPKTAG :YES-PACK TAG 
5918 017644’ 112722 OO00040 LPKOCT: MOVB #40, (R3)+ ‘STORE A BLANK 
5919 017650’ 060100 ADD R1,RO ‘POINTER TO RIGHT DIGIT 
5920 Oi 7bbe" 005201 INC Ri "RESTORE CHAR COUN 
S921 017654’ 004567 O22%62 JSR RS, ASDEC1 :CONVERT TO PACKED DECIMAL 
5922 017660’ 177550 .WORD LPKERR-. “REPRESENTATION OF OCT 
5923 017662’ 111023 MOVB (RO), (R3)+ 
5924 017664’ 116023 000001 MOVB = 1(RO$, (R3)+ ;STORE PACKED DECIMAL (OCTAL) 
5925 017670’ 1160e3 o00002 MOVB  2(RO)'(R3)+ 
5926 017674" 004567 Oe223e JSR RS, OCTBIN sCONVERT TO BINARY 
5927 017700’ 177530 .WORD LPKERR-. *JUST TO CHECK FOR ERROR 
S928 017702" rl BR LPKAMP IF OK ADVANCE MODEL PTR. 
6929 017704" il 000104 LPKDEC: MOVB = #D, (R3)+ : Dp? 
5930 017710’ 060100 ADD R1,RO POINTER TO RIGHT DIGIT 
5931 017712’ 004567 O22424 JSR RS; ASDEC1 ‘CONVERT TO PACKED DECIMAL 
5932 O17? * 17751 .WORD LPKERR-. 
5933 17a H8 111 MOVB (RO), (R3)+ 
5934 017722’ 116023 O00001 MOVB  1(RO}, (R3)+ :STORE PACKED DECIMAL 
5935 017726’ 116023 MOVB  2(RD).(R3)+ 
5936 ‘ 017732" 004567 022160 JSR RS, DECBIN sCONVERT TO BINARY 
5937 017736’ 177472 .WORD LPKERR-. ‘JUST TO CHECK FOR ERROR 
5938 017740’ 000671 BR LPKAMP ‘IF OK ADVANCE MODEL PTR. 
5939 017742" O0se0! LPKTAG: INC Ri 
5940 017744’ O20l2e7 ocoo004 CMP Ri, #4 sCHECK IF TAG LENGTH<=4 
5941 017750’ 101401 BLOS §_LPKCKT 
S942 017752’ do0be% JLPKER: BR LPKERR sERROR IF IT ISNT 
5943 0177 10367 001312 LPKCKT: MOV R3, LPKPKP 
5944 017760’ O16 001304 MOV LPKPTP, R3 
S94S 017764’ 004567 006642 J RS, TAGLUP CHECK IF TAG VALID 
5946 017770’ 177440 WORD LPKERR-. 





| 
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5947 -#4#4*0011 SPECIAL CODE STARTS HERE 

5948 001 IF OF M 

5949 CMP 2(R2) #2 :THIS MAY BE "OPSW" TAG 

$350 BQ L PKTGD -BR IF IT COULD BE 

5952 017772’ O2bee7 o00002 000017 CMP 2(R2), #17 -VALUE GREATER THAN 177 

5953 20000’ 101007 BHI LPKTGOD “ASSUME VALID TAG 

59S4 > Ol MOV PC,R3 

23a ° 3261 ADD #LPKBUF+1-. ,R3 

fe eae ge eo ba” Pion ate 
n-nn 14? 

5 pepote ppa7ee BR JLPKER ELSE REPORT ERRO 

5353  eeeexD0l f SPECIAL CODE ENDS HERE 

5360 ’ O1 001246 LPKTGD: MOV LPKPKP,R3 

96 , 000004 MOV #4, Re 

5 * 160102 SUB R1'Re 

5963 020032’ LPKLPG: MOVB (RO)+,(R3)+ ;STORE TAG IN 

5964 020034’ 1 DEC Rl ‘PACKED CODE 

5965 020036’ 001 BNE LPKLPG 

5966 Oep040’ TST R2 ;1F 4 CHARS ALREADY MOVED 

5967 Oepd4e’ 001630 BEQ LPKAMP VANCE MODEL POINTER 

5968 Oe0044' 112723 OD0040 LPKLPB: MOVB #40, (R3)+ FILL IN TRAILING BLANKS 

5969 Oe00S0’ 005302 DEC R2 

5970 Oe00S2’ 001374 LPKLPB 

5971 Ge00s%" BR LPKAMP : THEN ADVANCE MODEL PTR 

5972 * 016767 O06S42 OO6S44Y LPKSPH: MOV LSCNPT, LSPTSV :SAVE SCAN POINTER 

5973 Oc0064’ l2e712 000247 CMPB s-«- #247, (Re) 

5974 020070’ 001422 LPK :GO HANDLE SET/RESET 

2379 020072’ ice? ie 000250 CMPB —s-« #20, (Re) 
020076’ O0141 BEQ LPKSRS :GO HANDLE SET/RESET 

5977 020100’ lee712 000100 CMPB —s-: #100, (R2) 

5978 O20 108" 001476 BEQ LPKIF :GO HANDLE IF 

5979 106’ 122712 000150 CMPB —s-_: #150, (Re) 

5980 20112" 001002 BNE LPKSS1 

5981 020114" 000167 0004 IMP LPKPRT :GO HANDLE PRINT 

5982 020120’ 122712 000170 LPKSJ1: CMPB 8170, (Re) 

| 5983 Geo1e4 001002 BNE —- LPKEJ1 

5984 020126’ 000167 IMP LPKFIL :GO HANDLE FILL 

5385 020132’ O00167 177272 LPKET1: JMP LPKERR 

5 020135" 167 177014 PKSRS: JMP LPKSVP ;SET MODEL VECTOR POINTER 

5 020142" 016767 56 O06460 CPKBIT, MOV LSCNPT, LSPTSV -SAVE SCAN POINTER 

59988 020150’ OOSO04 CLR RY SET WORD COUNTER= 

5989 Dep ibe; 7 LPKBLP: JSR RS, SCAN ‘FIND NEXT WORD 

5990 020156’ ate 000015 CMPB aig (RO) *WAS IT A CAR. RET 

5991 Oe0ibe’ OO14i2 BEQ PKPBT : YES-DONE 

5992 020164’ 005301 DEC Ri 

5993 G20 bb’ 160100 SUB 

234 Ge0170" e710 000123 CPB NENG sHAS WORD SET ? 

beep aoe reesati 000103 FP #’C, (RO) Nae BOR CLEAR ? 

5997 Gepede’ 001402 BEQ LPKPBT ; YES-DONE 

2238 beens Inc SNO-INCREMENT WORD COUNT 
SOSIB’ DIE7E? OOG414 OOEYOb LPKPET: HOV LSPTSV,LSCNPT i ean SCAN POINTER 

Poet BSnstee BiBaBo Moy RGR.” 

6002 020220" 7 005070 JSR RS, BTPACK ;SET BITS IN 16 BIT WORD 

{ ~ 
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ys 


SEESEEEE 
DOONMUI£ UIT 


nee 


HORMDOMN ae Seated ede Gos oR HN NINO 
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age 006372 LPKSRI: 


15 





LPKIF: 
S 
LPKCRL: 
BR 
LPKWD1: 
C 
002400 LPKWD2: ADD 
000077 
000001 
000075 
000001 
000076 
176740 LPKEJe: 
000001 000112 LPKRFD: 
000001 000117 


O06346 LPKSRe: 
000124 LPKSR3: 
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LPKERR-. 


RO. (R3)+ 
LSCNPT ,LSPTSV 


nets 


L 
1 ll 
L 


RR 
1(R3), #112 
1(R3), #117 
LER e? 
LPKEJ2 


;STORE IT IN PACKED CODE 
ay Ses ae) 
tGaRRIAGE Re 
iNO-KEEP SEARCHING ; 
iR : ABN Eee NOpEL POINTER 


;LAST 2 LETTERS ’T0’ ? 
:NO-KEEP_ SEARCHING 
;YES-GO PROCESS BRANCH 
;SCAN AHEAD 

;LAST WORD _’BIT’ 
sYES-ANALYZE IF BIT INSTR. 


;LAST 
;YES CHECK RELATIONSHIP 
;ADD 8 TO FUNCTION CODE 


scan AHEAD 
SBREING Ma COUNT 


HIF NE 
fae F 3 OR MORE 
‘Tips 2 TO FUNCTION CODE 


:YES-RELATION FOUND 
; INCREMENT F.C. 
THAN ? 


oe 
2 
= 


: T =) OR d= 

: TION FOUND 
; INCREMENT F.C. 

. IT <= OR = 


IF FC 112 OR LESS 
; CONTINUE 
SIF Ae 117 OR MORE 


t OTHERWISE REPORT ERROR 
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nee 


a 
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= 
1 
A 


A 
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;ERROR IF FOUND 
;POINTER TO FIRST CHAR. 
;BRANCH IF C (CLEAR) 


;1ST CHAR AN I? 
;NO 


;BRANCH IF G (GRAPHICS) 


;BRANCH IF 0 (OCTAL) 
; INCREMENT F.C. 


;BRANCH IF D (DECIMAL) 






SES 0128 








;G0 SET MODEL VECTOR PTR 
SCAN IF BIT STRING 
CHECK FOR CAR RET 


;BRANCH IF S (SET) 
i SCAN NEXT WORD 

; INCREMENT FUNCTION CODE 
GO SET MODEL VECTOR PTR 


iJS FIRST CHAR A_# 
; YES-GO PACK TEXT 

31S FIRST CHAR A # 

:YES = PACK TEXT WITH NO RETN 
SCAN SECOND WORD 

DOES LENGTH=2 

;NO-SCAN MORE 


ORE 
SINCR F.C. BY 4 
;SCAN NEXT WORD 
sCARRIAGE RETURN? 
:NO-CONT INUE 


:Y 
SCAN NEXT WORD 


;1ST_CHAR AN I? 
:NO- eon an 


32ND CHAR AN N? 
HES-CONTINLE™ 


‘SCAN NEXT WORD 










;BRANCH IF A (ASCII) 
; INCREMENT F.C. 
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ll PACK SUBROUTINE 

6115 020760’ 105263 000001 INCB —_:1(R3) s INCREMENT F.C. 
116 020764’ 121027 000102 CMPB ss (RO), #’B 
bil , BEQ LPKRFD sBRANCH_IF B (BINARY) 
118 , BR LPKTGS ER ROR I NONE OF ABOVE 
6119 020774’ 062713 O44400 LPKTNR: ADD #44400, (R3) ;ADD 111 TO F.C. 
bled 921000" 000402 ates ae BR LPKADP wee GO ADJUST PACK POINTER 

nie? : ; 
piss BS the Bess 43 Saadoe LPKADP: App i, pi i200 2} Beck’ B POINTER 
bles Oeldle’ ooS200 © LPKITX: INC 
6124 O21014’ 112023 LPKLP8: MOVB thane (R34 -MOVE WORD TO PACKED CODE 
6125 021016’ le2760 oO0001S 177777 CMPB S,-1(RO “FOUND CARRIAGE RET ? 
ble 021024" 001373 SNE teetpe *NO-MOVE ANOTHER BYTE 
6le? 021026’ 032703 000001 LPKEVN: BIT a Ra” "NEXT ADDRESS EVEN ? 
6128 021032’ 001405 Q TXD i YES - TEXT DONE 
6129 021034’ 112763 OO0040 177777 MOVB BuO. -1(R3) “STORE BLANK IN PLACE OF CR 
6130 Oel042’ 112723 000015 MOVB 15° (R3)+ ‘STORE CR TO MAKE IT EVEN 
6131 O21046’ 000167 176362 LPKTXD: JMP LPKEXT : YES-EXIT 
6132 O210S2’ O0S004 LPKFIL: CLR RY ;SET WORD COUNT=0 
6133 O21054’ O04S67 005326 LPKFLI: JSR RS, SCAN 
6134 021060’ 00S204 INC RY t INCREMENT WORD COUNT 
se Bibs ty wen: Bs Lao 
6137 rate 1e0ioy 000122 CMPBSes«( RO), #’R ;1ST CHAR R (RANDOM) 
6138 021072’ 001415 BEQ LPKFL2 ; YES- H 
6139 be 1074 121027 000107 CMPB =s-« (RO), #’G 31ST CHAR G (GRAPHICS) 
6140 021100’ 001424 BEQ LPKFL3 
BI 21102" 1e1de7 000101 CHP (RQ), 8° jist ¢ “CHAR A (ASCII) ? 
th tite: i 1454 000120 CMPB =s-s« (RO), #’P 1ST CHAR P (PATTERN) 
6144 21114" 001434 BEQ LPKFLS 
6145 021116’ 121027 000015 CMPB os (RO) , #1 ;CARRIAGE RETURN? 
bag elles: 14 BEQ LPKFLY 
614 1124” BR LPKFL1 SCAN SOME MORE 
6148 O21l26’ 004567 o0S2S4 LPKFL2: JSR RS, SCAN 
149 Geli 3e° INC RY s INCREMENT WORD COUNT 
61 1134’ 12] 000015 CMPB sé), #1 "LAST WORD ? 
6151 021140’ 001350 BNE LPKFT1 : NO-DISREGARD 
6152 Del ie" 000004 CMP #4, RY *WORD COUNT=4 
6153 021146’ OO1446 BEQ LPKFAL :YES 
Be TELS SE? cose umes: fan farsi i" 
6155 rate INC RY’ ; INCREMENT WORD COUNT 
6157 021160’ 121027 o00015 CMPB ss (RO), #1 “LAST WORD ? 
6158 1164’ BNE LPKFT1 iB coon 
615 1166’ 000004 CMP #4, R4 
6160 021172’ 001430 BEQ LPKFA3 : YES 
6161 021174" 25 BR LPKFAY : NO 
bibe 061176" 000004 LPKFL4: CMP #4, R4 WORD COUNT=4 
61 1202’ 0014 BEQ LPKFAS :YES 
6164 Oele04’ OOO4IS BR LPKFAG 
6165 021206’ 004567 005174 LPKFLS: JSR RS, SCAN 
6166 Gelele: 005204 INC RY ; INCREMENT WORD COUNT 
6167 021214’ 121027 o00015 CMPB s« (RO), #15 ;LAST WORD ? 
6168 Oel220’ 001320 BNE LPKFT1 ;NO_ DISREGARD 
6169 Oele2e’ 022704 o00004 CMP #4, R4 “WORD COUNT = 4? 
6170 Oele26’ 001402 BEQ LPKFA7 : YES 











en eee. 


taboaloale ale slealeslegl eal eal eal este alealealealsalealealeal ea ealealsalsals alsa sale al 
BBSRR LOG SSBURR ESR LS sasNoa Zany 


SaSeReeees 
ROBUU ora UU DuU Oru Oar arure 


ts ht bh be on ns Pe fe he pe pe be pe Pa pe bee pe 


EREEERERRE 
WONOU CWO 


RRR 


0ele 
34 


RRR PLES 


foro foruforore 


1 
1 
1 
1 
1 
1 
1 


Se 


RERBR 
Boland 


Stat=] 
| aun 
Mo 


RENSREMEGoENS 


<= 
RGSS 


8 


021432" 


* o42040 


ass 


OUTI 
105263 000001 
1 0001 
1 01 
1 00001 
1 000001 
1 000001 
105263 000001 
000167 175666 
000000 
000000 
000000 
000000 
000000 
047S2e O40Se4 
000 000 
O20040 O47111 
010 000 
020040 042504 
020 ooo 
020040 047515 
030 000 
020040 O40440 
040 000 
G20040 051440 
0S0 ooo 
020040 
100 377 
a ae 
ov2eee 
120 000 
OS3440 O44S22 
1 000 
04 O44S22 
140 000 
OS0040 O44S2e 
150 377 
041040 O42See 
160 000 
O44S06 
377 
O42440 
000 
sh 
i? 


O43440 


MAINDEC-11-DTMGA-C_ MPG INTERPRETER 
DTMGAC.P11 PACK SUBROUTINE 


o42524 
051103 
051103 
O4eS26 
042104 
041125 
043111 
043111 
042101 
o4eS24 
OS4S06 
052116 
04SS01 
046114 
042116 
052116 
042101 
054501 
047524 
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LPKTBL: . 





“BYTE 
“ASCII 
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4 
7 GO TO 








SEO 0120 





;NO 

;ADD 

s APPROPRIATE 
s AMOUNT 

: FUNCTION 


; CODE 
;GO SET VECTOR POINTER 


;P_TBL POINTER SAVE 
:PACK POINTER SAVE 
:BAD LINE NBR FLAG 
S INTERNAL TBL_FLG 
:MODEL STMNT TBL END 


;PACK/UNPACK TABLE 










MAINDEC-11-DT' 
DTNGAC. 


Re 


NAN 
=e 


mo 


wee sesehmUmemUC OCU OWrlhUCUCOChUCOhC SD 


deSneRs 


MGA-C 


MPG INTERPRETER 

PACK SUBROUTINE 

o2084d 047524 
Duy 

020040 O4SS16 

puzeee 047122 
346 

020040 052105 
247 

041440 051101 
250 
601 

es 051117 

046040 047507 
252 

ov24ip osuse2 

020040 052111 
254 
001 

051040 052105 
255 

o20ni0 042516 

042504 042524 
367 

o42516 042524 
260 

050040 052116 

oso5uh 042523 
262 

020040 042122 

o208ne 020040 
377 

000006 

eeege 


aS 


5 
aia 
nies 

i 
= 


eo 


-BL 
LPKTBE: .WORD 
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- ENDC 


: MODEL STATEMENT VECTOR TABLE 


CMPNTR: .WORD 
a WORD 
“WORD 
“ WORD 
“WORD 
“WORD 


- WORD 
- WORD 
- WORD 


-ASCIT 
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/VECTOR/ 
es 


/ LETGO/ 
7 ENTRY/ 
7 EXIT/ 
254,0 
/ RESET/ 
255,0 


/__ DONE/ 


ee | 


ae ee en as me ec ee en ce ren 0 ee re ee cee nn ene re a TD 


Z 
e 


SOARS ERSRRN CRIS ENEoS cee oe Ca SRSA SCREAMS UMNIRROMGERRNOE & 





eee 


MACYS €7(732) 


. 


SSSSSS5SSSSSSSSSS SSS SURRSSSSSSSSSIUSSSEUSNSSSSSSSS 


: 
E 


. 
55 





24-SEP-76 13:54 PAGE 31-11 


SE] 
eG 
+ CPEs BaCE: 
TIF \ 
eel 
'CIFGTI-LBASE 1 


1 
1 
1 


SRRESRESS 


bt bb he eee 
Gee pee 
“ru 






P= fet bo Gs Gee fi pes 
Gao ae es ee hs se om pe bee 


o 
ome 


$= pth B= po be ewe fn De 
VRRIAANIB 
Pas feo Fe fan FS b= pe pe 


SREOBRO BeBe 
Seeeeeree A) 
Sata 


ee 


251,LVECT-LBASE1 
252, LETGO-LBASE! 





SEG 0122 





z 
§ 


Oi 
foro ts 


oO 


RSS § § S55 § 8 SRuRRReRRPRORAER GRRMRIeTOREReTS ¢ 


. 


PACK 


See° 000s 


tees" 


022376’ 000377 


R 
q 


ees, 


ay § yg 


S 


oa 


aac: 





; Bues4 
eG of 
1a 
oe 
tl 
eure 
S566? 
a A 
’ 
’ 
° 
022604" 020117 


“DTNGA-C MPG INTERPRETER 
SUBROUTINE 


OUTI 
0036 
Oosese 
003632 
003632 
003055 
003632 
003711 
OS2111 177510 
000 
0S4502 000377 
177517 000 
0S2101 052377 
990 
051106 046517 
ires} 051106 
052111 000375 
sais 051775 
020117 
it 1775 
1101 43440 
043777 201i? 
020117 
G20117 
1a 5 047507 
Baeah 943777 
047524 000376 
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- WORD 253, LENTRY-LBASE1 
“WO 254’ LEXIT-LBASE1 
IF NOF MM 
=i WORD 2SS,LRESET-LBASE! 
; .WORD 252,LPAUSE-LBASE! 
263, LWORD-LBASE 1 


- WORD , 
-WORD 240,LEND-LBASE] 
-WORD 377,LTBEND-LBASE1 ;END OF TABLE 


: MODEL STATEMENT TABLE 
ELOAD: .ASCIZ <377>/WITH/<377> 


LDECRI: BYTE 377,0 
L : : 


LDECRe: .ASCIZ <377)/BY/<377> 
tHOVEL: .ASCIZ <3779/70/<3779 
3: eASCIZ (377) /AT/( 377) /T0/4377> 
LSUB1: .ASCIZ ‘377>/FROM/<377) 
LSUB2: .ASCIZ ‘377>/AT/<377>/FROM/<377> 


LCLEAR: .ASCIZ <377>/BIT/<375> 
LIFST: .ASCIZ ¢377>/BIT/<375>/SET GO T0/<376> 


LIFCLR: .ASCIZ ‘377>/BIT/<375>/CLEAR GO T0/<376> 


LIFEQ1: .ASCIZ <377>/=/«377>/GO0 T0/<376> 
LIFGT1: .ASCIZ (377>/)>7<377>/GO T07<376> 
LIFLT1: .ASCIZ ‘377)7¢/<377>/G0 T0/<376> 
LIFGE1: .ASCIZ (377>/=>/<377>/G0 10/<376> 
LIFLE1: .ASCIZ (377>/<=/4377>/GO T0/<376> 


ne ee en ae ee 
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DT’ Pll SUBROUT INE 


MGAC PACK 
6382 261e’ 7? 177476 O47S07 LIFNEL: .WSCIZ (377)7¢)/¢377)/G0 19/376, 
Ble EG Leth OE | 
6383 022625’ O0S2101 036777 LIFEQ2: .ASCIZ <377)/AT/<377)/2/¢6377)/60 T6/<376> 
ise 020117 047524 
$384 , 177524 037074 LIFNE@: .ASCIZ ‘377>/AT/4377> 76) /76377/G60 10/4378» 
* 943777 Oe0117 047524 
| 
6385S P LGOTO: 
6386 peepee 376 000 LLINK: .BYTE 376,0 
6387 Oeebb2’ 373 000 LRETN: .BYTE 73, 
eo * 1760S2 000 LPRNI: .ASCIZ /%#/<374% 
ae 043 000374 LPRNNR: .ASCIZ 78/4374 
6390 Oech : 044777 Peete 051501 LPRNG1: .ASCIZ <377)/IN ASCII/<373> 
6391 s Atti O04 LPRNOI: .ASCIZ <377)>/IN OCTAL/<373> 
peer ie 052103 046101 000373 
6392 , anes penele 042504 LPRNDI: .ASCIZ <377>/IN DECIMAL/<373> 
peers. 940515 175514 
63393 022735’ 9 047111 O4104O LPRNEI: .ASCIZ <‘377)/IN BINARY/<373> 
Gee74e’ ated | 051101 175531 
6334 reat 377 052101 O44777 LPRNGe: .ASCIZ (377>/AT/<377>/IN ASCII/<373> 
| aiid Goon 76 051501 o44S03 
a ai 000 
6395 7 OS2101 044777 LPRNO2: .ASCIZ <377)/AT/<377>/IN OCTAL/<373> 
| » Peis Mate OOses 
i $396 a. 377 101 044777 LPRNDe: .ASCIZ (377)/AT/<377>/IN DECIMAL/<373> 
| 12° at os 
| 6397 _——s AT quay? LPRNB2: .ASCIZ <377>/AT/<377>/IN BINARY/<373> 
| * O20116 040516 
| 6398 023044’ 111 O20110 LFILR1: .ASCIZ <377>/WITH RANDOM/<373> 
| , 2116 046517 
6399 " OS2111 O20110 LFILG1: .ASCIZ <377>/WITH ASCII/<373> 
| ; 051501 044503 175511 
| §400 eSanor LFILP1: 
; 6401 le LVERF 1: 
6402 atthe 377 O44S27 O44124 LFILV1: .ASCIZ <‘377>/WITH/<377> 
6403 023106’ fd 177524 raat LFILR2e: .ASCIZ <377>/AT/<377>/WITH RANDOM/<373> 
in Bigs Bags Babe Os 
6404 cap 377 oe3i0 LFILG@: .ASCIZ <377)>/AT/<377> WITH ASCII/<373> 
023134" OS21 11 1501 
bea 14" paisoa 78611 GOD 
«BS Bey. Hage 
desta? a 104 053777 LFILVe: .ASCIZ 377>/AT/<377> /WITH/<377> 
6408 023161’ 377 052101 000377 LROT2: .ASCIZ <377>/AT/<377> 


ne + ee eee 


ale C MPG INTERPRETER 
DTNGAC .F PACK SUBROUTINE 
64 166’ 
e738 sai 
6411 023166’ 
6412 023166" 
6413 asst ° 
6414 3166" 
6415 001 
6416 023166’ 
6417 nee 
6418 023166’ 
6419 023166’ 000 
6420 023167’ 377 047111 9047524 
6421 ae 777 116 177517 
 Belidy D965] 
6422 Oe3e1e’ 043377 O47S22 177515 
6423 hy 999 051106 046517 
023226’ 052377 176517 
S424 001 
iS 023233’ anh 047524 000376 
bY 023240’ 047777 176516 0c0 
64e8 023245’ ocd 
6429 
6430 
6431 
bi3e 23%’ — 900 
oes 
x 
6435 G23251’ 000 
| 8436 
; 6437 Oe32eS2e’ 047504 O42516 
| 6438 023256’ 000000 
64339 023260" 000000 
| 6440 Oe3e62’ 000000 
6441 
6442 
6443 023264’ 000110 
i 
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LREAD3: “Asciz 2377) /INTO/<3779 

LREADY: .ASCIZ <377)/INTO/<377> /FROM/<375) 
LWRIT3: .ASCIZ <377>/FROM/<377> 

LWRIT4: .ASCIZ 377) /FROM/<377>/T0/<375> 


IF NOF MM 
LVECT: .ASCIZ <377>/T0/«376> 
LBRK2: .ASCIZ <377>/0N/<375> 


LTBEND: .BYTE 000 sEND OF TABLE 
EVEN 

LDONE: .BYTE O ;DONE FLAG 
Birt “vt 0 ‘DELETE ELAS (MUST FOLLOW LDONE) 
L : T 0 ‘IGNORE FLAG 
LERROR: .BYTE 0 : ERROR FLAG 
LASDON: CII /DONE/ 

LPKEPT: .WORD OQ 

LPKPSV: 0 

PKMPS: 0 

LPKBUF: .BLKB 72. ;PACK BUFFER 


ie ce ee ee ee nn es re oe | oS OE ES RS ES TTS 


ae ett on ce MPG INTERPRETER MACY11 27(732) 24-SEP-76 13:54 PAGE 32 SEO 0136 
DTMGAC.Pil UNPACK SUBROUTINE 


oie .SBTTL UNPACK SUBROUTINE 
6447 haiaiaialaeleleleieieleleleleieiaiaiaisisleielelleleieieielaieleleileleleleleieiehdiaieieieieleieileleddileleidieieidididieieiieieidla 


poke SUBROUTINE EXPANDS ONE LINE OF 


6450 : CKED CODE BACK TO A FORMAT SIMILAR 
bye : a THE USERS ORIGINAL ENTRY. 
BY53 : CALLING SEQUENCE - JSR RS,UNPACK 
fee : ENTRY - LUPKPT POINTS TO PACKED CODE. 
6 : EXIT - RO CONTAINS UNPACKED CHARACTER COUNT 
bY58 : Rl AND LUPKPT POINT TO NEXT PACKED ENTRY 
May : LERAAELALALALLFEAARA RAZA RELA REL LALA EASA AERLLAARA RE LAL LALA LELE RLS RLELES 
1 
6462 
6463 023374’ 010346 UNPACK: MOV R3,-(SP) 
S4EY , O1OH46 MOV RY, -(SP) ;SAVE R3, RY AND RS 
6465 * 010546 MOV S,-(SP) 
6466 ’ 905067 000702 CLR = yd sRESET END FLAG 
6467 023406’ 010705 MOV 
6468 023410’ bbe70s 010763 SLINGUF473.-. .RS ;SET OUTPUT POINTER 
6469 023414’ 01 000111 MOV #73. ,RO 
6470 Oe34e0’ 112745 LUPLP1: MOVB 840, -(RS) ;CLEAR OUTPUT LINE BFR 
6471 * 005300 DEC RO 
6472 * 001374 BNE LUPLPI 
6473 30° 016704 000660 MOV :POINT R4Y AT PACKED CODE 
6474 Peay 112467 000651 MOVB  (R4)+ TOR TH *GET LENGTH 
6475 * 111403 MOVB  (R4),R3 GET FUNCTION CODE 
6476 * 112714 000377 MOVB #377, (RY) ‘PUT NULL (ONES) FOR F.C. 
6477 , 10400 RY, RO 
6478 * 010501 RS,RI 
6479 Ges4Se’ 004567 015346 JSR RS, DECASC : CONVERT LINE # TO ASCII 
6480 O23456’ 110314 R3, (RY) RESTORE F.C. 
6481 023460’ 010105 MOV R1,RS 
6482 * 010004 RO; R4 
6483 , Lee? 000622 MOV (R4)+, LPHYSL ;GET AND SAVE PHYSICAL ADDRESS 
BYE4 ii 000011 MOVB #11, (RS)+ :STORE A TAB 
6485 74° 010700 MOV PC, RO 
6486 023476’ 176254 ADD sLAPNTR-. , RO ;SET RO TO MODEL VECTOR TBL 
6487 * 010302 MOV 3,fe :SAVE FUNCTION CODE 
6488 , 1ee710 000377 LUPLP2: CMPB #377, (RO) 
6489 10’ OO140S BEQ LUPSEV GO SET EXTERNAL VECTOR 
6490 023512’ 120310 CMPB sR, (RO) 
649 14° 0014 BEQ LUPSMP 
, 000004 84, RO 
’ BR LUPLFe 
BYS4 * 016700 LUPSEV: MOV LUPPTP sDETERMINE END 
6495 y 000354 ADD aPTLGTAWDVCTEP, RO 
64% ’ Obi ADD (RO), RO OF EXT VEC TBL 
6497 ' 010067 175536 MOV RO O.LASTBE 
498 * 0167 50 MOV PRO ;POINT RO AT START 
99 ’ 000352 ADD LPP +DVVTEP, RO : 
6500 023552’ 061000 ADD (RO), RO ‘EXTERN VECTOR TBL 





: 


oa a ea 
DTNGAC .P 


Bg 
BR 
Ree 


RRR 
ry 
site 


ae 
See 


* 016703 
Beit, Bite 
besela* 062700 
Q23620" 011003 
tese50" 
023630" 1 
023634" 101 
ae 
beseso’ Ise7ii 
023654" 001405 


N 


a 
S= 


03660 
023662 1 
tese70° 016701 
023674 att 
: be2toI 
023706’ 010167 
1 1 
1 
11 : 
te3780° 020167 
023734’ 001432 


‘ 


+ 
+ 


+ 
. 


- 
‘ 
ba 
T 
=—© 
i a 


sues 


-_ 
=_ 
Tw 
= 
He 


a eswee 
z 


TERRES cea toes con dnnooRe Buu GonuuReuce cE eee e Hea annee 
: 


2Bn 
NBS 


6556 


{ 
i 


7 INTERPRETER 


UBROUT INE 
175520 
000004 


000002 
000512 
000242 


000040 
000240 


000001 O0C2bE 
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10$: 


LUPSEP: 


LUPSMP : 


LBASEe: 
LUPTMF : 


LUPNPI: 
LUPLF3: 


LUPSEX: 


108: 


LUPIFD: 
LUPLP4: 


LUPSIN: 


BR 
MOV 


Sage Sage seeesseee 


aR 
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RO, LMSTBE 
LUPEXT 


fconeT 
¥7,R 
SLPRTBL46-. RI 
#377, (RL) 
Re eR} 
LIED 
UPL 
UPPTP, R1 
#PTLGTH+DVVTEP, RI 
R1).R 
R1'LPKTBE 
TP, RI 
SP TLGTHSDVPTEP, Rl 


LUPEXT 
(R1)+, (RS)+ 
RO 

LUPSIN 

#40, (RS)+ 
#240, Re 
LUPE 
#1,LENDFL 


; STORE _A 
NOS IT_AN "END’ 


:R0.AT BL ENO? 
YES - EXIT 


F.C._IN TBL 
‘ BRANCH IF _ FOUND 
:BUMP POINTER 
;CHECK NEXT ENTRY 


sSET EXTERN MOL POINTER 
TEST MULT FORMAT 
‘RO CONTAINS MODEL ADDR 


:R3 NOW POINTS TO MODEL 


;POINT R1 AT PACK TBL 
;EXIT IF F.C. NOT FOUND 
;BRANCH IF INSTR. FOUND 


;DETERMINE END 
‘EXT PACK TABLE 
: ADJUS 


T RI 


;POINT R1 
i ART 
3 OF EXT PACK TABLE 


RI AT TBL_END? 
;YES - EXIT 


sonee IF INSTR FND 
;ELSE KEEP LOOKING 


; BACK 7 TO INST WORD 
;CHAR_A BLANK? 
;NO-STORE INST WORD 
;BUMP Rl 

;DECREMENT CHARA COUNT 


LOOP IF ANY REMAINING 
sexaT F ALL BLANK 


S 
;STORE INSTRUCTION WORD 
BLANK 


;YES-SET END FLAG 


SEG 0137 
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UNPACK SUBROUTINE 


DTNGAC.P11 
6557 bende’ 112725 000015 LUPEXT: MUVB #15, (RS)+ STORE A CR/LF 
’ 112725 000012 MOVE He, (RS)¢ 
6559 * 010700 MOV 
b560 : 010226 AO) aL INBUF-. , RO 
1 i SUB RO,RS 
6562 Oe4O4e’ 010500 MOV RS’ RO sRO=UNPACKED CHAR COUNT 
6563 Oe4044’ 116701 000241 MOVB = LPLNTH,R1 
Bere gouges’ Tie7e? 000001 000230 fOve SI LENO OTHERWISE SET END FLAG » 
Neunce* 
Pepe teat 167 une LPLNNZ: ADD R1; LUPKP : POINT at ie 
6567 Devoe" 16701 000224 MOV LUPKPT, Ri RI AT NEXT PACKED ENTRY 
£568 ’ O16 000216 MOV LPHYSL’ Re *R2 AT PHYSICAL ADDRESS 
6569 024074" 012605 MOV (SP)+,R5 
£570 ’ ol MOV (SP)+>R4 RESTORE R3,R4,RS 
be71 100° O1 MOV (SP)+°R3 
024102" 000205 RTS RS ‘RETURN TO CALLING PGM 
6573 Oe4104’ O0S203 LUPAMP: INC R3 ‘ADVANCE MODEL POINTER 
6574 106" iee713 000377 LUPEMB: CMPB #377, (R3) ‘EXAMINE MODEL BYT 
6575 lle’ OO1446 BEQ LUPVAR *GO UNPACK VARIABLE 
6576 114’ 122713 000376 : CMPB =s«# 376, (RQ) 
6577 024120’ 001425 BEQ LUPLIN GO UNPACK LINE NBR 
6578 Oetie2’ 122713 000375 CMPB s«&#375,, (R3) 
feed peuise’ tee7t3 000374 ao, ret) a een San em 
6581 ayer hayes BEQ LUPIAP ;GO UNPACK IMM PRINT 
6582 024136" 122713 000373 CMPB =s«# 3773, (R3) 
6583 024142" 001727 BEQ LUPEXT sTAKE SPECIAL EXIT 
6584 O24144’ 105712 TSTB = (RB) ‘IF MODEL BYTE=0 
658S 924146" 001725 BEQ LUPEXT ‘EXIT 
6586 O241S0’ 111325 MOVB (R33), (RS)+ :STORE MODEL CHARACTER 
6587 O241S2’ 000754 BR LUPAMP ‘THEN ADVANCE MODEL POINTER 
6588 betes, 012400 LUPBIT: MOV (R4)+. RO 
6589 24156’ 112725 o00040 MOVB 840, (RS)+ 
6590 Oe4ib2’ 010501 MOV RS,R1 
ba! Geigy 7? 001640 JSR RS, BTUPAK ;UNPACK BIT NUMBERS 
170° 0101 MOV Ri 
6593 024172" 000744 BR LUPAMP ;THEN ADVANCE MODEL POINTER 
34 Geni 7a: LUPLIN: INC RY ‘BUMP RY PAST 'L 
95 176’ 11 000040 MOVB #40, (RS)+ STORE A BLANK 
65% Oe4202’ 000401 BR LUPTG1 
6597 Oe4o04’ 112425 LUPCTA: MOVB  (R4)+,(RS)+ STORE FIRST BYTE 
6598 DeieDe 010400 LUPTG1: MOV RY, RO 
6599 19’ 010501 MOV RS,RL 
6600 Oe4el2e’ 004567 014606 JSR RS, DECASC ;CONVERT LINE # TO ASCII 
6601 Oe4%216’ 010004 MOV RO, RY 
EEbs DeNBSS” Sis7ee OO0DHO Nove ga TRS)¢ STORE SCAN 
6604 beeee bieeS? BR LUPAMP THEN ADVANCE MODEL POINTER 
6605 * 112725 o00040 LUPVAR: MOVB = #40, (RS)+ STORE A BLANK 
6606 Oe4234’ 121427 000040 CMPB Ss (R44). #40 “FIRST CHAR A BLANK ? 
6607 * 001761 BEQ — Lucta ;YES 
6608 ie, ete? 000104 CMPB 3s ¢R4) , #104 “FIRST CHAR A “D"™ ? 
6609 * 001004 BNE LUPTAG :NO= UNPRCK 
6610 O24250’ 126427 000001 000360 CMPB sd (RN) , #360 *IF 2ND CHAR > 360 
6611 256" 1 135e BHI LUPCTA GO UNPACK DECIMAL NBR 
66le Oek4260’ 1124 LUPTAG: MOVB  (R4)+,(RS)+ 
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13 "ah MOV (R4)+, (RS)+ 

ti BeaSeG {Suse MOVE traps? REDS 

6615 O2e4266’ 112425 MOVB  (R4)+_(R5)+ s MOVE TAG As IS 

661 peve70, 725 000040 MOVB 49 (RS)+ 5910 RE A BLANK 

661 ° BR LUPAMP : THEN ADVANCE MODEL POINTER 
6618 Oe4276’ 112425 LUPIMP: MOVB Ra) (RS)+ ‘MOVE STORED BYTE 

6619 024300’ 121427 o00015 CMPB R4), bIS ‘UNTIL CARRIAGE RET 
6620 024304’ 001374 BNE LOPIME 

bbe! 024306’ 000676 BR LUPAMP : THEN ADVANCE MODEL PTR 
6623 024310’ 000 LENDFL: .BYTE 0 

6624 024311’ 000 LPLNTH: .BYTE 0 

6625 024312’ LPHYSL: .WORD 9 

6626 624314’ 900000 LUPKPT: .WORD 0 

6627 024316’ o00000 LUPPTP: :WORD 0 
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DTMGAC.P11 SYNTAX ERROR SUBROUTINE 
6629 .SBTTL SYNTAX ERROR SUBROUTINE 
6631 ahaainbelehabaiabaeimeieiaisiaiaieciaiaiaiaieiahaiciaiainiaiaiaiaiainiaiaiaiaiaiaiainieisinisiaiaiainindaiciniaisiniaial 
BPs THIS SUBROUTINE PRINTS A rhANe UNDERNEATH THE USERS 
6634 ENTR WHEN ANYTHING IN THAT ENTRY CANNOT BE INTERPRETED. 
6535 THIS LINE CONSISTS OF ALL "BLANKS EXCEPT FOR THE BAD 
6636 ENTRY SURROUNDED BY QUESTION MARKS 
<% CALLING SEQUENCE ISR RS, SYNTAX 


s HAA AA LAA ALAA RE RE RESALE RELA KALA LALA LL RRELERAELELELARLEL REL ELELEEE 


6641 
6642 
6643 024320’ 010700 SYNTAX: MOV PC, RO 
6644 O24322’ 062700 007740 ADD sLINBUF-., SET PNTR TO LINE BUFF 
6645 024326’ 016701 002274 MOV LSC i iGET C UNT AND 
6646 Oe4332" 016702 002266 MOV LSCNPT: Re jLAST POS OF BAD WORD 
6647 024336’ 012767 OO000S 000114 MOV #5, LTTYCT SINT OUTPUT COUNT 
6648 ’ INC R2’ : POINT Re, PAST BAD WORD 
6649 024346’ 112722 000077 MOVB = #"?, (R2)+ :ST 
6550 et * i 000015 MOVB #15, (Ro)+ “A oReRtaG RETURN 
6651 * 11271 12 MOVB 12) ( j AND A LINE FEED 
6&52 * 060167 000072 ADD RI, LTTYCT “ADJUST OUTPUT COUNT 
6654 feasee" 1e5 x ae : "Re sPOINT R2 BEFORE BAD WORD 
6655 at 150105 177777 MOVB eRe) -1(R2) “MOVE THAT 1 BACK 
6656 Oe4400’ 112712 000077 MOVB =a? CR) s INSERT A? 
bb? peo LSNLP1: CMP RO WE AT LINE START ? 

* 00149149 BEQ LSATG2 YES - GET READY TO TYPE 
6659 Oe4410’ lee762 000011 177777 CMPB ss #11,-1(R2) Ts THIS A TAB ? 
6660 024416’ 001003 BNE LSNTG1 "NO = CONTINUE 
6661 Oe44eD’ DEC Re YES - SKIP IT 
bbb2 oe" 005267 ate INC LTTYCT sD BU OUTPUT COUNT 
BPP 32’ bects are INC LTTYCT : BUMP ouTPuT COUNT 
6665 024436’ 000762 BR LSNLPI “CHECK IF DONE 
aaa) Gewia O1g7e8 LSNTG2: MOV #"ER, (R2)+ i LORE PER? 

* BOISE? TE1SE0 Tore RAL TYPE SHE LINE” 
are: patch 000420 4a 
6670 Oe4456’ 007603 “WORD LINBUF-1- 
6671 DeHHe0” 000001 LTTYCT: :WORD | 
6672 62’ 105267 176563 INCB LERROR SET ERROR FLAG 
6673 Oe4456’ 000205 RTS RS ‘RETURN TO CALLING PGM. 
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hy -SBTTL DISPLAY COMMAND HANDLER 
pez? haiaialaileleleleleieiaiaiaieileleleieieleieileleisieleieieleleieieleieileleleieieieieeleleieieieleiehdeleleisieieleiieleleleieleiei 


Ha 3 SUBROUTINE HANDLES THE DISPLAY N 





6680 : ND DISPLAY N CODE COMMANDS. THE OUTPUT 

6681 : IS ON THE DISPLAY DEVICE AND CONSISTS 

6682 : OF A LISTING OF THE USERS STATEMENTS 

6683 : ALONG WITH THE MACHINE CODE GENERATED 

6584 : BY THE COMPILER (IF REQUESTED). 

ebb : CALLING SEQUENCE JSR PS,DISP (DISPCD) 

6688 ENTRY R3 POINTS TO PROGRAM TABLE 

bess KERALA KESL RELA AAA RAE EAE ALLE ALLA ALARE LEAR AE LEA RA KARE LARA LA AKA KAELELEE 

6692 

6593 70’ 7 900164 DISP: CLRB  LSTOBJ LEAR LIST OBJ FLAG 

Besa ppud74? QopdBe Gere LB TSUR i THEN SAVE Rel IsieRs 

6695 024476’ 105267 000156 DISPCD: INCB LSTOBJ *SET LIST OBJ F 

B69 Oe4soe 010367 177610 LDISVR: HOV R3,LUPPTP :SAVE P TBL POINTER 

5598 10’ O1 MOV RY’ -(SP) ;SAVE R3 AND RY 

699 024512" 016367 000022 177574 HOY a mpORCST(RS) ,LUPKPT ‘INIT UNPACK POINTER 

6701 BIS ‘ #P4CONS , LUPKPT ;SET PARY SELECT BITS 

6703 924520" 176650 LDILP1: JSR RS, UNPACK sUNPACK ONE LINE 

6704 Oe4S24’ 010067 000010 MOV RO, LDITBC 

670S Oe4530’ 010204 MOV Re, RY ;SAVE PHYSICAL ADDRESS 

6706 001 IF OF MM 

6707 #P4CONS, RY SET PARY SELECT BITS 

£708 * oouee? o110N2 ISR RS,CLIST PRINT IT 

6710 aes 007524 .WORD LINBUF-. ; 

6711 Oe4540" 000000 LDITBC: : WORD E 

6712 Oe4S42’ 105767 000112 TSTB  =LSTOBJ sTEST LIST OBJ FLAG 

6713 Dovey 001006 BNE LDIGPA “BRANCH IF SET 

6714 * 105767 177534 LDITEF: TSTB  LENDFL ; TEST END FLAG - 

6715 Oc4SS4’ 001761 BEQ LDILPI LOOP IF NOT SET 

6716 Oc4556" 012604 SP)+,R4 

6717 Oe4S60’ 012603 V (SP)+;R3 sRESTORE REGISTERS 

6718 Oe4Sb2’ 000205 RTS RETURN TO CALLING PGM 

i ee Em 

b72l 024564’ 005704 LDIGPA: Ter RY ;IF PHYSICAL ADDR ZERO 

6723 LDIGPA: CMP R4, #PYCONS ;IF PHYSICAL ADR ZERO 

6724 000 - ENDC 

6 DeNsEb 001 BEQ LDITEF GO CHECK END FLAG 

6 * 105767 177514 TSTB : 

6727 024574" 001025 BNE LOIREF IF END FLAG SET 

6728 024576’ 016702 177512 MOV LUPKPT, Re 

6729 boueas" 016203 O00004 MOV G(R2),R3 ;GET NEXT PHYSICAL ADDR 
| 6730 O24606’ 001760 BEQ LDITEF IF ZERO DONT CONTINUE 
—_ 
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6731 001 
x 
7. 
6734 
67. 
67. 
673 
6738 
6739 
6740 
6741 
6742 
$743 
= 
6746 024610’ 010400 
6747 000 
6748 Ge46le’ 004567 
6749 024616’ OO0044 
024620’ 012400 
6751 Qe4622e’ 004SE7 
Oe462e6’ 000044 
6753 024630’ 004567 
a ae 
6756 
6757 024636’ 000021 
6758 
6759 
6760 000 
676i O24640’ 010400 
6762 001 
eved 
6765 O24%642’ o2000g 
pres de4s44’ 103761 
Poee Geuese’ O1040s 
67693 001 
6770 
6771 
6772 Oe46S2’ 062703 
6773 O24656’ 
6774 
i 6775 


6779 001 
6780 
6781 * 054130 
024670" Oed 
6782 
6783 
6784 
6785 000 
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014304 


014274 
010744 


oooco4 


054130 054130 


MACYL1 27(722) 


LDILCD: 
LPARSV: 


LDILCD: § 


LDIREF: 


LSTOBJ: 
LDIMSG: 


LDIADR: 


LDOI18B: 
ADR: .ASCII 
. ENDC 


LOI 
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fF DOF MM 


-BYTE 
-ASCIT 
- IF _DF 
- IFF 
-ASCIT 


IFT 
-ASCIT 


DUKPARH, (PC)+ 
RS. G22BAD 
PBAg V-, 

4 -(SP) 
#P4CONS, (SP) 
(SP)+, RO 


RS, BINASB 
LOti8B-. 


RY. RO 
#P4CONS , RO 
R4,RO 


RS, BINASC 
LOLADR- 


R4, RO 


#PYCONS, R3 
#4,R3 
LOILCD 


0 


<O11> 
MM 


AXXXXXX= / 


AXXXXXXXX (7 
/XXXXXX) = / 


;GET 22 BIT ADDRESS 
;OF OBJ CODE WORD 


:PUT PHYSICAL ADR IN 
“CONVERT TO ASCII 
;GET VIRTUAL ADR OF OBJ CODE WO 


;RESET PAGE SELECT BITS 


;GET ADR OF OBJ CODE WORD 
;CONVERT OBJ ADR 

; TO ASCII 

;CONVERT CONTENTS TO ASCII 
;PRINT OUT ABOVE 


;CLEAR PARY SELECT BITS 


2 tg | ADDR >=NEXT 
- LIST MORE CODE 

NES = CHECK FOR MORE 
CURRENT PHYSICAL ADDR 


;RESET PARY SELECT BITS 


;ADD_ 4 STORE AS NEXT 
GO PRINT CODE 


;LIST OBJECT FLAG 





SEO O14e2 





———— LL LL LL TT 


DTMGAC.P11 DISPLAY COMMAND HANDLER 
6786 O24672’ 054130 054130 954130 LDIOBJ: .ASCII /XXXXXX/<01S><Ole> 
024700" OOSO015 


4 
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-SBTTL SAVE COMMAND HANDLER 
aiaedelaiaiebeisiaiaeieiaiaiaheleieiaiieieiniaeieiaiseieieiaiehaisisieiaisisieieiaisiieisisisiieinisisieisislsiieieisiieiels 


16s feenth ee The NU NUMER OF a a 


PACKED” CODE MACK Fo 115 ORIGINAL FO 
STORES IT ON THE LIBRARY DEVICE. 


CALLING SEQUENCE JSR RS,SAVE 
ENTRY R3 POINTS TO PROGRAM TABLE 
5 EHH EEE EEE TERE EE 


ee te te eee ee ee ee ee ee Te 


SAVE: CLR LSVFPS sCLEAR FIRST PASS SW 
MOV R3, LUPPTP :SAVE P TBL POINTER 
LSyPS2: MOV PSRCST(R3) , LUPKPT ‘INIT UNPACK POINTER 
ene #P4CONS , LUPKPT ;SET PARY SELECT BITS 
CLR LSVRTL ;CLEAR RUNNING TOTAL 
MOV #492. , LSVBCT *SET BYTES REMAIN=492 
MOV BUF ,R4 :GET BLOCK BUF POINTER 
ADD #8.°R4 ; SKIP FIRST 8 BYTES 
CLR LSVBNM BLKS=0 
TST LSVFPS {TEST IRST PASS SW 
BNE LSVRSid IF SET-RESET 
INC LSVFPS ‘OTHERWISE SET It 
BR CSVUPL 
LSVRSW: CLR LSVFPS sRESET FIRST PASS SW 
LSVUPL: JSR RS, UNPACK *UNPACK ONE LINE 
MOV PC’ Re 
ADD #LINBUF-. , R2 ;POINTER R2 TO LINBUF 
SUB RO, LSVBCT ; SUBTRACT CHAR COUNT 
BMI LSVWFT “BRANCH IF IT WONT FIT 
LSVMLB: HOVE (R2)+, (R44 :MOVE LINE TO BLOCK 
BNE LSVMLB 
LSVTEN: TSTB _ LENDFL :TEST END FLAG 
BEQ LSVUPL IF RESET UNPACK MORE 
MOV PC, R2 
ADD sL INBUF-. , Re 
MOV #00, (Ra)$ :MOVE 'DONE’ 
MOV #”NE. (Ro)+ :TO LINE BUFFER 
MOV UcRtt. (R2)+ 
MOV #6,R0° 
SUB RO; Re 
5 RO; LSvect ;SUBTRACT CHAR CNT 
BM LSVWF Breet IF IT WONT FIT 
LSVMD8: HOVE (Re), (R44 MOVE "DONE’ TO BLOCK 
BNE LSVMOB 
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SAVE 
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J z 
a. ° a = 
Boner F SB 8&2 By ¢,3 
ar w 2 - - J w 
gat angi Be gif 5 5 of efacs = 83 
feu, fe 5S § ares He she 28 fo, Ca 
Poxa WES ofa out Pexe Bee Sx =F ote 
Eaos Sm. cat SESSES eS. EG oe aceee 3 Be 
wae owos Bors Soesog wl Sw Bu Saat == 
ne SSa= of Sus" bee 983 So teew 6§ Be 
Sule Shaw beds ofete, B8ES 329 Be Baygs 8 EES 
we Ey : ae & acieg Sa 3 & 
Pez Rees Ba ie gs Betae Em poe. +o ga 
GOST EGS _bagaee aaa Ree ae at Ee ane 


scSaceavassesserlsooatan aes 


2 i 
=) di 


w 
a 


LSVMOC: ROVE 
LSVBCZ: 


000110 


= S632 RE eg z, 
Gees Bom a: 


i Sau 

-e FR ae 
os Sa 
-4 =—< od ae 








———— 


cea rm me ite oe mcm tae er ee a ee em ne me ne ene eee 
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6894 -SBTTL BIT PACKER SUBROUTINE 


base ; SSELSLLESRAKRAAERAARSAASELESLASAAALSRESEELAEARESRSRAAAEAA FES LSASESSE 
£898 THIS SUBROUTINE INTERPRETS THE USER STATEMENT 
6899 ; WORDS N AND N THRU N OR N AND N -N AND SETS 
p00 ; THE APPROPRIATE BITS IN A 16 BIT WORD. 
6902 CALLING SEQUENCE JSR RS, BTPACK 
6303 .WORD ERRTN-. 
£305 ENTRY RO CONTAINS THE NUMBER OF USER WORDS IN THE 
6905 NG (EXAMPLE -7 FOR N &N&N - ND 
6307 ; LSCNPT POINTS TO THE WORD BEFORE THE STRING 
6303 EXIT | RO CONTAINS THE 16 BIT WORD WITH BITS SET 
baie ESSERLESAELERESSEREL ERE ESE SEE RES SA ESE ESS RELE PRERGL RE EKE RSS THEE 
6914 
6915 025314’ 910067 000460 BTPACK: MOV RO, LNBRWD ;SAVE NBR OF WORDS 
6916 Oc25320’ 012767 000001 o004S0 MOV #1; LBTPNT SET BIT POINTER TO BIT O 
| §917 025306’ OO4SE7 001054 JSR RS; SCAN ‘FIND FIRST WORD 
| 6318 O52) 7 015012 JSR co ‘CONVERT TO BCD 
; 631 | 9 . WORD = 
| 6920 Oe5340; 7 o14sSe2 JSR RS, DECBIN ;CONVERT BCD TO BINARY 
bass Geese Hoy RE EBTNGR ST SULT AS BIT NOR 
! cs > 9 
| 6923 peescs: MOV RO’ LBTNSV * AND FOR LATER 
pase peas: BFE iDEC STEEN T LORD To zebGes 
| x eee id REQUESTED B17 NOR 0 ; 
| LBPLP1 eer eee i PORNTER LEFT 
| ° ” BNE Gl fad i SHIFT >16 
, IMP LBPERX 
: : ural: Bete PTY cet rim 
’ LBPBS: Bre LETPNT, LEPRMD ee 
| , LBPMOR: TST L 
¥ BEQ LBPEXT meas IF ALL KORDS PROCESSED 
| ° J C it AN 
| 
¥ SUB R1,RO ;MOVE POINTER TO WORD START 
' MOV PC’ Re 
° ADD sLBPVTB-. ,R2 ;POINT Re AT LOOKUP TABLE 
¥ DEC LNBRWD *DECREMENT NUMBER OF WORDS 
’ BEQ LBPERX “ERROR IF EVEN ® WORDS 
s MOV #4. R1 
| , LBPLP2: CMPB (RO), (R2) :IS WORD A TABLE ENTRY 
° BNE LBPNF ;BRANCH IF NO 
P ee, Re 
, MOV (RE) PC ;IF YES TAKE 
, LEPNF: ADD #4, Re “BUMP TABLE POINTER 
’ DEC Ri ‘END OF E 





a eee ee ee 


ane eee 
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BNE LBPLP2 sNO-CHECK NEXT ENTRY 
BR LBPERX :YES-TAKE ERROR EXIT 
000676 LBPAND: JSR RS, SCAN ‘FIND NEXT WORD 
4 DEC LNBRHO ; DECREMENT NBR OF WORDS 
l ISR co ‘CONVERT WORD (BIT#) TO BCD 
.WORD LBPERX-. 
014370 JSR RS, DECBIN :CONVERT BCD 70 BINARY 
.WORD LBPERX-. 
000246 MOV RO, LBTNBR sSTORE RESULT AS BIT NBR 
000246 MOV RO; LBTNSV ‘AND SAVE FOR LATER 
6 90001 000230 MOV a LBTPNT -SET BIT POINTER TO BIT O 
TST LBtNBR -IF BIT NUMBER O 
5362 SEQ LBPSBO :GO SET IT 
000216 LBPLP3: ASL LBTPNT ‘SHIFT BIT POINTER LEFT 
6964 S50’ BEO LBPERX ‘ERROR IF SHIFT >16 
6965 025562” 7 000214 DEC TNBR :DECREMENT BIT NBR 
6966 * 001372 BNE 3 ‘SHIFT TO CORRECT POSITION 
6967 ’ OSb7b/ p00202 000206 LBPSBO: BI LBTPNT, LBPRUD iE A BIT 
6968 ’ 7? 000176 TS ‘TEST IF NBR OF WORDS =0 
6969 Oes602" 001467 BEQ LBPEXT EXIT IF YES 
6970 DeSbON BR TF NO TEST MORE WORDS 
6971 , 000574 LBPTRU: JSR RS, SCAN ‘FIND NEXT WORD 
6972 OeSbl2’ 7 000162 DEC *DECREMENT NBR OF WORDS 
6973 OeSbi6: 7 O14S26 ISR RS co ‘CONVERT WORD (BIT#) TO BCD 
6974 * 0001 . WORD - 
B37 0eSh24" 004567 014266 SR RS, DECBIN ;CONVERT BCD TO BINARY 
Ge, “an? : -, 
6 025632” Bierol 000150 MOV LBPERX Ri :GET PRIOR BITS 
6978 025626’ 000144 MOV RO, LBTASV -SAVE LATEST 
6979 , CMP RO;R1 
6980 ’ BLT LBPPGL ;IF LATEST >PRIOR 
6981 ’ 01 000130 RO, LBTNBR : STORE LATEST 
p38 , LBPLGP IF PRIOR >LATEST 
6 * 010167 o00122 LBPPGL: MOV R1, LBTNBR :ST 
6984 * 010001 MOV RO;RL :LATE Ri 
6995 , 7? 000001 000106 LBPLGP: MOV #1/LBTPNT :SET BIT POINTER TO BIT O 
cs eee. ia pe feney deafhat = "© 
6938 ae BR LBPTG2 hen Se SET BIT 0 
£389 025676" 7 0900074 LBPLP4Y: ASL LBTPNT “SHIFT BIT POINTER LEFT 
£990 , 1433 BEG LBPERX “ERROR IF SHIFT >16 
6991 025704’ 000072 DEC LBTNBR * DEC LARGER BITs 
6992 025710’ j DEC Ri *DECREMENT SMALLER BIT# 
6993 12’ a7} BNE LBPLPY : SHIFT 19 CORRECT POSITION 
6994 4° 020167 000062 Lee =. s CMP Ri .LBTNBR “CHECK IF PRIOR =LATEST 
bose : PF noosa ooos4 carves: Bis} tBTent LePRW ‘era gir 
bar ee Ooeae? ooo042 © BSL L TPN” ‘SHIFT BIT POINTER LEFT 
£993 * 103015 BCC LBPERX sEXIT IF SHIFT > 16 
7000 per: posed} LBPTG3: INC Ri ‘INCREMENT SMALLER NBR 
i * 020167 000034 CMP Ri, LBTNBR :C TO LARGER 
7002 ’ BLOS  LBPLPS ‘LOOP IF < OR = 
7003 ’ BR LBPMOR 
7004 * 056767 000020 900024 LBPST1: BIS LBTPNT, LBPRUD SET ONE BIT 
7005 025760’ 000620 BR LBPMOR 





r ne ee ee es ee 
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OTNGAC BIT PACKER SUBROUTINE 
& 025762" 016700 000016 LBPEXT: uv _LBPRID, RO RESULT TORO. on 
oom Ose788" boBebe Ris RS RETURN TO CALLING Por 
| 7010 LBPERX: ADD = (RS), PS ;CALCULATE ERROR RETURN 
Fle RTS RS ;AND TAKE IT 
a ae: eg Re ec 
bis CBYNGR: “WORD 6 ITT NUMBER 
7016 LBPRWO: .WORD 0 ;BIT PACKER RESULT 
017 LBTNSV: .WORD 0 ;BIT NUMBER SAVE 
7018 ‘ LBPVTB: .ASCIZ /Av sAND-THRU LOOKUP TABLE 
7020 ; LBPRT1: .WORD LBPAND 
7021 ; ASCIZ /8/ 
70ee : LBPRT2: . LBPAND 
7023 026020’ “ASCIZ /7/ 
| 7024 Oe60ee" LBPRT3: .WORD| LBPTRU 
7025 Oe6024° 000055 “ASCIZ /=/ 
7086 026026" 025606" LEPRTY: .WORD LBPTRU 


er 


. ee enn en a ts i ei a a ee LT CL A TE CTE 
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7030 
703 

7032 
7033 


BCU RE RES RRRRE A Scat a ea aclu aoe ee ee eects 
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hither aici ciate elatciaiaichniaiaaiae 


Ce eee eee ee te ee ree re ee 7 


BTUPAK: ad 


LBULP1: s 


LBUSAS: 


<3 


ome 
<o 


LBULPe: 


LBULP3: 


LBUBKU: CLC 


ENTRY 


EXIT 


PEQSSERRSRER SI" 


BE GROSPEREES 


si CONTAINS THE 16 BIT 


te SUSROUTING COVERS o. 16 BIT 
BIN NUMBER INTO THE FORM 
N THRU N AND N RS AN ASCII CHARACTER STRING 


CALLING SEQUENCE 


RS, BTUPAK 


NUMBER 
1 POINTS TO WHERE ASCII STRING DESIRED 


R1 POINTS TWO SPAC 
WORD GENE 


pe 
bru 


@L oO Re 
(R2)+, (R13+ 
RO 

{BUBPT 
LBUBP 








cee ahaa LAST 


+ LEEERLELELE ERLE RHEL EARL ELLE RES AAAALA ALAA ALLE RELA LEAR ERAA ERE RAL LE 


;SAVE BINARY NUMBER 
SET BIT O OF_UNPACK PTR 
NBR T0 0 


;LOOKUP TABLE POSITION 

;PRINT FIRST DIGIT 

; THEN SECOND 

3 TEST IF LAST BIT # 15 
BIT POINTER 

; INCREMENT R 


BI 
TEST IF ptr of 
:BRANCH IF 


;STORE WORD ’ THRU’ 


; ADVANCE ait POINTER 
; INCREMENT BIT NUMBER 
TEST IF BIT SET 
;BRANCH IF NOT 
TEST IF BIT 15 
LOOP_IF_NOT 
STORE 1S IF IT IS 
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7084 O26224’ 006067 000074 ROR LBUBPT “BACK UP POINTER 
7085 026230’ ? 900072 DEC LBUNBR :DECR BIT # 
7086 Oeb234’ l BR LBUSAS ‘THEN STORE NUMBER 
7087 Debe6: ? 000017 OCO062 LBUFBT: CMP #15. LBUNBR 
* 001421 BEQ LBUEX sEXIT IF BIT # = 15 
7083 O26e46’ 006367 ooo0se ASL LBUBET ‘ADVANCE SIT POINTER 
oat pepsee, ? peepee oo0060 BIT LBUBPT , LBUWRD ;TEST IF BIT SET 
7092 Oebeb4’ 001764 BEQ LBUFBT “LOOP IF NOT 
7093 Oeb266’ 012700 o00005 MOV #5, RO 
70% Oebe7e’ 010702 MOV PC’ R2 
7095 Oe6274’ 062702 op0042 ADD #LBUAND-. , R2 
703 Geb300° ieee LBULPY: MOVB (Re)+, (Rij+ ;STORE WORD “AND” 
, DEC RO 
7098 026304’ 001375 BNE LBULPY 
7099 026306’ 000674 BR LBUSAS :STORE BIT NUMBER 
7100 026310’ 010702 LBUEXT: MOV PC, R2 
7101 OQe6312’ 062702 000030 ADD #LBUSPC-. , Re 
7102 026316’ llezel MOVB (R2)+, (RI }+ ;STORE TWO SPACES 
7103 026320" 111211 MOVB (Re), (RI) 
71g Qeb322’ GO0020S RTS RS sRETURN TO CALLING PGM 
7106 026324’ 900000 LBUBPT: .WORD 0 sUNPACK BIT POINTER 
| 7107 026326’ 900000 LBUNBR: .WORD 0 ‘UNPACK BIT NUMBER 
| 7108 026330’ OS2040 051110 020125 LBUTRU: .ASCII 7 THRU / : 
| 7109 026336’ O40440 O42116 LBUAND: .ASCII 7 AND/ 
| 7110 Oe6342’ 020040 L : .ASCII 7 / 
7111 Oc6344’ Ooo000 LBUWRD: WORD 0 
| 7112 Se6346’ 030040 LBUAST: .ASCII 7 0/ 
7113 026350’ O30440 “ASCII 7 1/ 
| 7114 * 031040 “ASCII 7 27 
| 7S * 031440 ‘ASCII 7 3/ 
| 7116 , "ASCII 7 4 
7117 026360’ 032440 SASCII 7 5/ 
| 7118 026362" 033040 “ASCII 7 6/ 
| 7119 Oe6364° 033440 “ASCII 7 77 
| 7120 026366’ 034040 "ASCII 7 8/ 
| 712k 025370’ Ga40 ASCH mY 
| «SHES be Seq Baosel ReetT AL 
| 7124 026376’ 031061 "ASCII 7127 
' 7125 Oe6400’ 031461 “ASCII /13/ 
| 7126 O26402" 032061 “ASCII 7/147 
| 7127 Q26404" 032461 "ASCII 715/ 


| 
i 
i 
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7129 .SBTTL SCAN SUBROUTINE 
gish 5 EERE RELAL ARE AAERALALERL ALA RAL REE RA ELERLLAALELASRELAEALEF LEE 
1 ; 
aE f 
7135 : THIS SUBROUTINE SCANS A LINE OF ASCII CHARACTERS We 
2136 : AND eBXITS WHEN THE NEXT WORD OR R SPECIAL SYMBOL ee 
713 : IS FOUND. SCANNI GINS ADDRESS STORED 
7138 : IN IN LSCNPT. 28 BNY INITIAL BL ARE it D. 
7139 : T NON-BLANK CHARACT OUNTERED 
7340 : SCAN BEEING RR UNT INE: WHEN THE NEXT BLANK, DASH, COMMA, 
7141 : BNPERSAND OR CARRIAGE RETURN IS ENCOUNTERED 
7142 : scaA Ey EXITS. RO AND LSCNPT THEN CONTAIN THE ADDRESS OF 
7143 : HE LAST CHARACTER OF THE WORD, AND R1 CONTAINS A COUNT 
7144 : OFS HE NUMBER OF CHARACTERS. 
otue 
17 : CALLING SEQUENCE ISR RS, SCAN 
ae : KELAFLERLAKELEERERALAR ALLELE RELL SLAALEE LH RERHRERLAE ZEEE LEE 
7151 
7152 406’ 016700: 000212 SCAN: MOV LSCNPT, RO ;GET SCAN POINTER 
7153 12’ 005200. : INC RO IT BY ONE 
7154 O26414* 005001 - CLR Ri ICLEAR CHARACTER COUNT 
7155 16’ 112002 LSKBL: MOVB  (RQ)+,R2 GET CHAR, ADVANCE POINTER 
71 420’ 122702 O00015 CMPB ss« #15. R2 :CARRIAGE RETURN ? 
71 424" 001454 BEQ LSCOUT “YES - GET 
7158 Dobe 22702 oo00ss CMPB s«#SS..Re : 
7159 Oeb432" 001451 BEQ LSCOUT “YES - GET OUT 
7160 O26434’ l2e702 o000S4 CMPB s«#54. Re : 
7161 OebyHO’ OOI4NG BEG, LScouT i YES GET cut 
71 ang ate BE tctout ives - GET OUT 
7164 Oe64S0’ 122702 000043 CMPB "# Re : ? 
7165 Oe6454’ 001440 Q LScOUT “YES = GET OUT 
7165 Oe6456’ 122702 OO00046 CMPB Re : 
tee OSEUEN’ SoeAee DODDMO CPB scour tcpace Se OU 
7169 pseu" ieres BEQ LSKBL ‘YES - CHECK NEXT CHARACTER 
7170 Oe647e’ 122702 000011 CMPB s#11. Re TAB ? 
7171 * 001747 BEQ LSKBL "YES = CHECK NEXT CHARACTER 
7172 ’ reat LCTCHR: INC Rl ‘INCREMENT CHAR. COUNT 
7173 * 112002 MOVB  (RO)+,Re ‘GET CHAR » ZADVANCE POINTER 
7174 O26504’ 122702 oo0015 CMPB Re ‘CARRIAGE RETURN ? 
7175 026510’ 001420 BE LSBK :YES = 
7176 12° 122702 oo00ss CMPB s«w#55, Re *HYPHEN ? 
7177 * 001415 BEQ SBk ;YES = DONE 
7178 ‘j 000054 CMPB 3s«#54, Re :COMMA ? 
7179 026524" OO14i1e BEQ LSBKUP :YES = DONE, 
7180 Oeb5eb' oo0046 CMPB so Re AMPERSAND ? 
7181 * 001407 BEQ LSBK :YES = DONE 
7182 O26534’ 122702 opo040 CMPB ss, R2 :SPACE ? 
7183 Oeb540" 001415 BEQ LSCKGO YES CHECK FOR GO 
7184 OQ26542’ 122702 000011 CMPB  =s-- #11, Re TAB ? 





Sewers ese news ee-0 eo eaneeenaes. 


Ps ps 


NINININISENISINISINININISISY 
0 bo he be pas Fa pe pepe 
BIRRLOGLEBSBLRR 3 


HeBee es 
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000783 


000036 
000034 


o0000e 
000107 
000117 
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177775 
177776 
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LSSKUP: 


LSCOUT: 
LSCNEX: 


LSCKGO: 


LSCNPT: . 
LSCNCT: . 
LSPTSV: . 


BEQ 
B 


24-SEP-76 13:54 PAGE 38-1 


LSBKUP 
LCTCHR 


RO 

‘o 

fa 

RO, LSCNPT 
R1;LSCNCT 
RS” 

#2,R1 
LSBKUP 
‘8 -3(RO) 
#’0,-2(RO) 


LSBKUP 
LCTCHR 






;TES - DONE 
‘NO-GET AND COUNT NEXT CHAR 
; BACK UP SCAN POINTER 


;EXI 

: INCREMENT STE COUNT 
;BACK UP SCAN POINT 

:STORE SCAN POINTER 


:SAVE SCAN CHAR COUNT 
; RETURN TO As Oe PROGRAM 


~EXI 
SECOND CHAR ’0’ 
;NO-EXI 
;YES-GET AND COUNT NEXT CHAR 
;SCAN POINTER 


:SCAN CHARACTER COUNT 
:SCAN POINTER SAVE 












SEQ 0152 
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7207 .SBTTL TAG LOOKUP SUBROUTINE 
oe [RERRES ERNE EU EN nena aa na TET 
7ell THIS SUBROUTINE SEARCHES THE COMPILER SYMBOL 
7212 TABLES FOR AN ENTRY CORRESPONDING TO A TAG 
7213 ENTERED BY THE USER. IF FOUND, ITS BINARY 
7214 EQUIVALENT IS PASSED BACK IN Re, OTHERWISE 
els THE ERROR RETURN IS TAKEN 
? CALLING SEQUENCE- JSR RS, TAGLUP 
7218 -WORD ERRTN-. 


ENTRY- RO POINTS TO THE FIRST CHAR. OF THE TAG 
Rl CONTAINS CHARACTER COUNT OF THE TAG 
R3 POINTS TO PROGRAM TABLE 

EXIT- Re CONTAINS ABSOLUTE ADDRESS OF TAG 


s KEXELAELAALALELER LALA LAE RA REL EL ALLE ERLEK ELL ELE RAL ELEERELELELELERLELELE 


Se ee ee ee ee ee ee 2 


026632’ 010167 o00S24 TAGLUP: MOV R1,LTAGCT ;SAVE TAG CHAR. COUNT 
026636’ 010702 MOV PC 
O26640’ 062702 001174 ADD sLCSTBL-. ,R2 POINT Re AT SYMBOL TABLE 
026644’ O20267 O00S06 LTLLP1: CMP Ro. LSYMTE “END OF TABLE 
026650’ 001002 BNE LTLEP2 
026652’ 000167 000274 IMP LSYNIT ;YES ~ CHECK DEVICE ROUTINE TBL 
7235 Oe6656’ Oefe67 000476 LTLEP2: CMP Re LDRSTE “END OF DEVICE ROUT TBL ? 
FSPEES poate 000312 Fits YES - op CHECK INTERF WD TBL 
7238 026670’ Oel2e7 177777 LTLEP3: CMP (R2), #177777 “END OF INTERF Wo SYM TBL? 
74° tie BEQ L : ; SYMBOL T FOUND 
76’ 12101 CMPB —s.-« (RO), (R2) FIRST . EQUAL? 
7241 026700’ 001033 BNE LNOTIT NO = 
7242 702’ 005301 DEC Ri ‘YES - DECREMENT CHAR CNT 
7243 704’ 1ebDbe 000001 000001 CMPB =: 1(RO) , 1 (Re) : . EQUAL? 
7244 712’ 001026 BNE LNOTIT ;NO_- BRANCH 
res 714? 4 DEC = jDECREMENT CHAR CNT 
FS ES: BE come come = re HO chert” TR 
re obice6 GNee CENT t 
7249 026730’ 1 DEC 1 VES - DECREMENT CHAR CNT 
ree) GSesaa Soeoed Brea «SCD au 
1 Oc6734’ 1 000003 000003 CMPB (RO), 3(R2) : FOUR . EQUAL? 
7252 Oeb742’ 001012 BNE LNOTIT NO = 
7253 026744" 0004 BR LTTBIN :WE FOUND IT 
7254 0c6746’ | 000002 OO0040 LTGLNe: CMPB 2(R2), #40 :THIRD CHAR. A BLANK? 
peeree OL 000003 O00040 LTGLNI BAPE LNOTTT FOURTH HAR A BLANK? yer ah 
haeeap hata BNE enotit NO = BRANCH 
re Te DE coos == unorir: ytd eSrant ce cdl 
7260 Waa ’ a and ADD #6,Re ” BUMP SYMBOL POINTER 
7261 * 000721 BR LTLLP1 TRY AGAIN 
7eb2 Oe700e’ 016701 000354 LSYMNF: MOV LTAGCT,R1 RESTORE RL 
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000324 


000320 
000314 
000310 


oo000e 


000236 


000216 
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R 
LTTBIN: wa 


LININD: ADD 
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(RS) ,RS 
M3 


rT RAOR-. ,Rl 
Re LXRTBS 


aA ae 
mw 
—— 


Ta 


IOX-PRDIOA, Re 
RIOR, Re 


sauSebaa 
wd Ee 
qe 


ad 
Tu. 


Sato 
iy 


iit et tata) 


; CALCULATE ERROR RETURN 
TAKE ERROR RETURN 


:POINT Ri AT 
i ADORESS ARE 


iRe ore INDEX er ae 


DIRECT REF 
Patou ier ies = 


2 BEFORE INDX IND STAR 
RSP TefestBoe wo » 


; MUST BE tay REFERENCE 


TE RESET, SKIP 
:SET UP COMPARISON ADR 
DOING RDIO ADR? 


:POINT AT RDIO 18 BIT ADR 
NUE S 


; UPDA 
‘TEST NPR FLAG 
iE R RESET SKIP 
“UPDATE MSW OF ADR 


MAP FLAG 
TF NOT SET, LEAVE ABS ADR 
‘ELSE GET 18 BIT VADR 


;EXIT 




























ws 


7319 027116’ 
7 027122’ 


73e4 027124" 
7325 027126’ 
7326 027130’ 


SISSS RRR RE RAE 


5 


el We 
DTNGAC.P11 








000 
06030¢ 
905011 
010261 000002 
001 


bese oooco4 
als 000002 


167 177454 
10302 

[ 000355 

000167 1774Se2 
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062702 000004. 
O11 
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LINDEX: ALD 
MOV 
IF DF MM 
BIC 
. ENDC 
ADD 
XCALC: CLR 
MOV 
IF DF MM 
BIC 
MOV 
ADD 
BIT 
BEQ 
BNE 
ADD 
ADD 
BR 
20S: BR 
LDIR ADD 
CLR 
MOV 
IF DF MM 
TSTB 
BPL 
BIT 
BEQ 
BITB 
BEQ 
S$: SUB 
MOV 
ADD 
ADD 
ADC 
. ENDC 
10$: BR 
LSYNIT: MOV 
ADD 
ADD 
MOV 
MOV 
ADD 
ADD 
JMP 
LSYNDT: £00 





#4, R2 
(RE), Re 
#P4YCONS, R3 
R3,R2 

(R1) 

R2,2(Ri) 
#100000, 2(R1) 
NPRFLG 

20 

2(R1),R3 

PC Re 


#PGABAD-. .R2 
BUNIMAP, CSYSFW 


(RI) 

(R2),2(R1) 

NPRFLG 

SUNINAP, CSYSFU 

#10, NPRFLG 

BPECONS, 2(R1) 

#PGEBA-. ,R2 

R2,2(R1) 

(RL) 

LTLEXT 

R3, Re 

#PTLGTH+DEVETP, R2 
RSTE 

aPTLGTHEDEVSTP, Re 

LTLEPe2 

aPtLGTHIDVINSP, R2 

(ieee 
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;SUMP TABLE POINTER 
;GET DISPLACEMENT 


;CLEAR PAR4Y SELECT GITS 


toe TO PROG TBL START 

:CLR MSW OF ADR 

UPDATE LSW OF ADR 

;RESET PARY SELECT BITS 
NPR FL = 





;EXIT 

;BUMP TABLE POINTER 
;CLR MSW 

;UPDATE LSW OF ADR 


; TEST NPR FLAG 
SKIP IF RESET 
MAP? 


: UN 
*NO, GO CALC ABS ADR 
>MASS BUS DEV? 

LEAVE VADR ALONE 
TAKE OUT P& BITS 


PICK UP PAGE & BASE AD 
‘ADD TO DISPLACEMENT 
UPDATE MSW WITH CARRY 


sEXIT 
sPOINT Re AT PROG TBL 


sre LENGTH PNTR TO Re 
3) ie YMBOL TABLE END 
‘PO NT Re AT PROG TABLE 


;SYMBOL TBL POINTER TO Re 
;GO0 LOOKUP SYMBOL 
;POINT Re AT PROG TBL 


; INTERFACE SYM TBL ADR TO Re 


;GO LOOK UP SYMBOL 
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7375 
7377 
7378 


SRS BRBESSSS 


SEP ELEeer ei rrrerer ct 


7411 





010301 
062701 
061101 
02020 
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LOISP: 


LIWS: 


LCOMB: 


10S: 


. ENDC 
LTLEXT: 
MOV 
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R3,R1 
ePTLGTH+DVINSP,R1 
(R1) RI 


Reet 
7 


3,R1 
#PTLGTH+DEVORA, Ri 


#4, Re 
(Rd) Re 
LCOMB 
#100000, R2 
PC 
sLTGADR-. ,R1 


R2,2(R1) 
LTLEXT 


cone 


ePTLGTH, Re 
PC, RI 

#L TGADR-. ,R1 
XCALC 
(R1).Re 
PC.R 

aL FGAOR-. , Rl 
R2,2(R1) 
NPRFLG 


LTLEXT 
#B1TS22, CSYSFW 


T 
#77, (R1) 


R1,Re 
LTAGCT, RI 
(RS)+ 
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;POINT R1 AT PROG TBL 


5 THEN TO 92 TART OF I W SYM TBL 


MUST BOINT AT SNTERE WORD 
‘POINT R1 AT PROG TSL 


;R1 POINTS TO DEV a BASE ADOR 


iRe HAS DISPLACEMENT 
+ COMBINE WITH BASE 


ysxvexdal SPECIAL CODE STARTS HERE 


ADR 
VALUE 


ALONG TABLE 
, exeexDOl 1 SPECIAL CODE ENDS HERE 


;BUMP TABLE POINT 

; GET DISPLACEMENT. 

;ADD TO PROG TBL saad 

;ADD PROG TBL LENGTH 

;POINT R1 

;AT ADDRESS AREA 

30 STORE INTERFACE WORD ADR 
BASE + DISP 


;NPR DEVICE? 
NO LEAVE | ig BIT VADR 
US SING T ADR? 


ob e UBNOLE IT 
Ere ADJUST TO 18 BIT 
sADJUST TO 22 BIT 


sPOINT R2 AT ADR AREA 
tRESTORE Rl 


;RETURN TO CALLING PGM 


;DIRECT REF TABLE START 
: INDEXED REF TABLE START 
s INDIRECT REF TABLE START 


;SYMBOL TABLE END 
sDEVICE a SYM_TBL END 
;ADDRESS TO BE PASSED BACK 





ep -11-DTMGA-C 
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027422’ 


027424" 
027426’ 
027430" 


MPG INTERPRETER 


ocodee 
000024 


o000de o0000e 
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FIND LINE ENTRY SUSROUTINE 


eh eee ee ee ee ee ee TY 


LFINLN: MOV PSRCST(R3) ,R1 
LFLLF1: MOV POBJST(R3) ,RO 
.IF DF MM 


LENDFD: BIS #PYCONS, R1 
ADD 


RTS as 
LINFND: TST (RS)+ 
RTS RS 


. IFF 
yt ag ADD (RS) ,RS 


-SBTTL FIND LINE ENTRY SUBROUTINE 


ae aaah ciate ieee 


FOR a GIVEN CINE NUMER IF IT 18 NOT THERE, it 
AKES THE “NOT FOUND 


CALLING SEQUENCE ISR RS, LFINLN 
.WORD NOTFND-. 


ENTRY- R3 POINTS TO PROGRAM TABLE 
Re POINTS TO NEW LINE (2 BYTES BEFORE LINE #) 


EXIT- Rl POINTS TO THE REQUESTED LINE 


5 RE RKLHK ELLA AL ERLE KEKE LAL ELE LAK L EEA E RAR EL EAA EA ALAA EARLE RL EKER KLEE LE 


;GET SOURCE START 
;GET OBJECT START 


#P4CONS, RO ;RESET PARY SELECT BITS 

CMP R1,RO :IS THIS THE END? 

BEQ LENDFD YES, EXIT 

BIS #P4CONS, RI ;SET PAR 4 SELECT BITS 
2(R1),2(R2) s1S THIS | THE LINE? 

BEQ LINFND * YES-EXIT 

MOVB  (R1),RO GET SOURCE LENGTH 

BIC #PYCONS, R1 ;RESET PAR4Y SELECT BITS 

ADD RO,R1 ;POINT R1 AT NEXT ENTRY 
LFLLP1 TRY AGAIN 


;SET PARY SELECT BITS IN LINE ADR 
(RS),RS CALC NOT FOUND EXIT 


;CALC NOT FOUND EXIT 
;AND GO THERE 
;RETURN TO CALLING PGM 











ee Sea 
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DTMGAC.P11 OBJECT SIZER SUBROUTINE 
775 .SBTTL OBJECT SIZER SUBROUTINE 
cate s LELERLERKLERAEAALERELEREAESLALSLELAESLARSLASAAALA TELA EFFLSLALA LE 
é ; 
7480 : THIS SUBROUTINE DETERMINES THE AMOUNT 
748] ; OF MEMORY REQUIRED FOR THE MACHINE CODE 
mgs : THAT IS GENERATED BY A GIVEN STATEMENT. 
ray : CALLING SEQUENCE JSR RS, LCKOBL 
o486 : ENTRY- RO POINTS TO PACKED STATEMENT 
c88 : EXIT- RO CONTAINS LENGTH 
Ne : REFREFREKSLHFFSEHFRLSHRAFEPERS SESE FLARE SAA SAE RSS AK LEY EL LEAS HF FSEL 
ae 027432" LCKOBL: MOV R1,-(SP) ; SAVE 
744 Der, MOV R2,-(SP) :R1 AND R2 
7495 ’ MOV PC’ Re 
74% Gera; 001212 ADD sLCMCTB-. ,R2 sPOINT Re AT COMPILER TABLE 
7497 , 000001 LCOLP1: TSTB 1(RO) IF FUNCT CODE NOT = 0 
7498 y BNE LCOTG! CHECK T 
74993 ’ CLR RO : OTHERWISE LENGTH = 0 
| 7500 , BR LCOTG2 
7501 , 000240 O00001 LCOTGI: CMPB 8240, 1(R2) F.C. REPRESENTS END? 
706 , BEQ LCOELT VES’ - CHECK FURTHER 
, 00000: 000001 CMPB  —s-«sA(RO). 1 (Re) :COMPARE FUNCTION CODES 
7504 , BEQ LCOLed *BRANCH IF FOUND 
7505 ’ BR LCOBP ELSE BUMP POINTER 
7506 , 000001 O00001 LCOEIT: CMPB (RO).1(R2) : FUNCTION CODES 
7508 71554 te {GET P TRL POINTER 
7509 14° hoasen ADD SPTLGTH+DVCTEP, Re >PO 
| 7510 ’ ADD (R2),R2 ;AT COMPILE TBL EXTEN. 
751 , 000377 000001 10S: CMPB 1(R2) OF 
781 {e60be 000001 000001 Comte Teen ‘Func TGN CODES 
| 7514 * OO1411 BEQ LCOLFO ' BRANCH IF FOUND 
7515 * 111201 MOVB = (R2),R1 
7516 , rl ASL Ri 
7517 4 800 R1,Re ELSE BUMP POINTER 
7518 550’ 10$ - TRY AGAIN 
18 027552" LCOBUG: HALT YES-HALT (MPG BUG) 
| 7520 B4’ 111201 LCOBPT: MOVB = (Re), Ri 
| 752i 27556’ R1 
738 0’ Ri ;BUNP TABLE POINTER 
She’ LCOLP1 RY AGAIN 
| 75e4 at 000241 000001 LCOLFD: CMPB #8241, 1(RO) ORS PRINT * ? 
| 7525 , 1 BNE LCOCHR *NO-GET LENGTH FROM TABLE 
| rock , LCOGPL sves-¢ NGTH 
127576 000261 000001 LCOCNR: CMPB 8261, 1(RO) A PRIN 
| 7528 027604" O01 BNE LCoGt eu A FROM TABLE 
7529 B06’ 111 LCOGPL: MOVB (RO). RO T PACKED LENGTH 
510° ered ooccc2 ADD #2,R0 
| 7531 027614" OOG4O4 BR 8s LCOTGe be: NeXIT © 





i ee ee ee 


} 
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ee 
o¢ ; 


| DTNGAC.P11 OBJECT SIZER SUBROUTINE 

{ 

027616" 111 LCOGLT: MOVB = (R2), RO 

E38 057620" ies ASL RO sCONVERT LENGTH TO BYTES 
RE Be re Oconee ETN ee 

cee pecbse. ise 1 ” MOV (SP)+'RI ‘RI AND Re 

| 7537 027632" 000205 RTS RS ‘RETURN TO CALLING °GM 


nn 


| 
einen’ 
FH e 


FIND DEVICE COMMAND ENTRY SUBROUTINE 
7539 -SBTTL FIND DEVICE COMMAND ENTRY SUSROUTINE 


7540 
4 hahahahahaha ahha ialiaiiaiaalainhanianiainiahialeteiininiciainiaichaiaiainiciniainiainiaiel 


Cy Tie ate A FUNEON CODE ATCA 


ABsOLU FER oe Te The ENTRY eon ' 
11 PO POINTS 
E Ih Noe FOLLDuL FORMAT: 
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DTNGAC.P1! 
7549 "CANT XXXX ON Y WHERE XXXX IS THE 
7550 ; ATTEMPTED COMMAND Bako vaYy YYYY IS THE DEVICE NAME. 
7351 : IT THEN TAKES THE ERROR RETURN. 
7553 CALLING SEQUENCE- JSR —s RS, FENTRY 
7554 .WORD ERRTN-. 
ree ar ENTRY RO CONTAINS FUNCTION CODE 
7557 ; R2 POINTS AT PROGRAM TABLE 
tee EXIT- R2 CONTAINS ABSOLUTE ADDRESS OF ENTRY 
7560 ; R1 CONTAINS NPR FLAG BYTE 
7561 : RO IS DESTROYED 
er UUTTTEC TT TTTT ETT TTT TTT TTT TT TET TTT Terr TTT er Tet Ter TTT Tet ret ert ert rTtTt 
H 
7565 
7566 027634’ 010201 FENTRY: MOV R2,R1 :POINT R1 AT : 
7567 927636" 062702 000346 ADD #PTLGTH+DEVETP, Re -GET ENTRY TBL POINTER 
7568 Oe7b42e’ 061202 ADD (R2),R2 ‘POINT Re AT T ‘ 
7569 Oc7644’ 120027 000167 CMPB ss RO, #167 -IF NOT RD, WR OR BRK 
7570 Oe7b50" 101002 BHI LENLP : CONT INUE 
| 757i * 042700 000007 BIC #7, R0 “ELSE RESET BITS 0-2 
| 7572 Oe7656’ 122712 000377 LENLP1: CMPB 8377, (Re) “END OF TABLE? 
| 7573 Oe7bbe’ 001413 BE LENCAT :TYPE ’CANT DO IT’ 7itse 
| 7574 Ge7664" 121200 CMPB s« (Re) . ROD *FUNCTION CODE IN 
| 7Bt8 Ser bbby Oolats BEQ =LENFCF ;YES - BRANCH 
7576 027670’ 000004 ADD 84, R2 *NO - BUMP POINTER 
| 7577 027674’ 000770 BR LENLP *KEEP LOOKING 
| 7578 027676’ 116201 000001 LENFCF: MOVB  1(Re),RI1 ‘GET NPR FLAG 
7579 27702" 005722 TST (Re)+ Ro = ENTRY DISPLACEMENT 
7580 027704’ 061200 (Re) ,Re ‘CALC ABSOLUTE ADDR 
7581 001 IF DF MM 
| 7582 #PYCONS , R2 ; TAKE OUT PAR 4 BITS 
7583 000 .ENDC 
| 75284 027706’ 005725 TST (RS)+ ; BYPASS ERROR RETURN ADR 
| 7585 027710’ 000e0S RTS RS EXIT 
786 te" LENCNT: MOV PC Re 
° 171374 ADD aL PK BL+6-. ,R2 ;POINT Re AT PACK TBL 
| 7588 * 12001 LENLP2: CMPB (Re) ‘FUNCTION CODE MATCH? 
. ’ 0b BEQ D *YES = COMMAND FOUND 
| 7 ’ Je 000377 CMPB sé 377, (Re) END OF TABLE? 
| 7591 * 0014 BEQ LENEEX “YES = TAKE ERROR EXIT 
7592 e773, 000010 ADD #8. ,Re : BUMP 
7593 , BR LENLPe "KEEP LOOKING 
7594 027740’ 162702 o00N0E LENCFD: SUB #6, Re ‘Re POINTS TO ASCII CMD 
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TNGAC P11 ND DEVICE COMMAND ENTRY SUBROUTINE 
7395 | (0e7744" Ted rs a 
feap Gerreu> BISSE> Boods6 NOV 
7398 peeeer ou veaeee ney 
660 O86%%0° Boddse "ORD 
ene ferrre Qoosge “#0 

‘ . WORD 
7603 030000’ 000006 . WORD 
7604 030002’ 061505 LENEEX: ADD 
7605 030004" 00020S RTS 
7607 930006" O40SO3 023516 020124 LENMSG: .ASCII 
7608 030014" Oe004%0 Oe004S OCe20040 LENCMD: .ASCII 

0300ee" O47440 020116 

7609 930026" 92en040 d20040 O00 LENDEV: 
710 030034’ 
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ps ! ; » LENCMD 


(R i t LENE te 


PHOLCD(RI), ),RI 
TEA py 


hare me 
V NAME 08 on Turs MOL 


60 CODE aie 


RS,CTYPE : TYPE * CANT Ook en YYYY’ 
LENMSG-. 
(RS),RS ;CALC ERROR RETURN 
RS s;AND TAKE IT 
/CAN’T 7 
/ ON 7 


ASCIZ 7 / 
.EVEN 
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COMMON STORAGE SYMBOL TABLE ‘DIRECT REFERENCE) 


/BF 157 
CBUF 1S 


DTMGAC.P11 COMMON STORASE SYMSOL TABLE (DIRECT REFERENCE) 
7613 .SBTTL 
7614 
7615 
7616 001 IF NOF 
7617 030034’ 020106 LCSTBL: .ASCIT 
7618 O30040° 041440’ . WORD 
7619 O30042’ 943102 030060 .ASCII 
7620 030046" 041440’ . WORD 
7621 030050’ 043102 030460 -ASCII 
7622 O300S4’ 041460’ . WORD 
7623 * 043102 031060 ASCII 
ress aes: ite i 

W? 102 031460 .ASCIT 

7626 030070’ 041520’ . WORD 
7627 03007e” O43) 032060 ASCII 
7628 030076" 041540’ . WORD 
7629 030100’ O43102 032460 .ASCII 
7630 030104’ 041560’ . WORD 
231 G30 * 043 033060 ASCII 
030112’ O41600" aha 

7633 030114" 043102 033460 ASCII 
7634 030120’ 041620’ . WORD 
7635 030122’ 043102 O34060 -ASCII 
7636 030126’ 041640’ WORD 
7637 030130’ 043102 O34460 -ASCII 
7638 030134’ O41660’ WORD 
7639 030136’ 043102 030061 .ASCII 

| 7640 030142’ 041700’ . WORD 
7641 530144" 043102 030461 -ASCII 
es oat ° pide 031061 ASCII 

| 7644 030156’ 041740" . WORD 
7645 160° 043102 031461 ASCII 

| 7e4R oBDle4" 1760" a 

| 7847 030166’ 102 032061 ASCII 

| 2648 030172" O4e000" WORD 
7649 030174’ 043102 O32461 ASCII 

| 7659 , WORD 
| 


eee eee 


SES Olée 


ee Ee 


a eee ee ee 
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DTNGAC.P11 COMMON STORAGE SYMBOL TABLE (DIRECT REFERENCE) 
7652 O30e0e’ 047503 030115 LCTBST: ne ts 
Zee Gaoe18 Bypsay, 030515 AT 73H, 

14’ ’ oW LCOM1 
7656 030216’ 047503 031115 «ASCII /COM2/ 
7657 A on . -WORD. LCOMe 
7658 ¥ 031515 _* -ASCII /COM3/ 
7689 030230’ 042046" -WORD LCOM3 
ree 030232" 032115 -ASCIT tog 
* 042050’ 2 
ree ah 7503 032515 “BOTT | 7eOHe/ 
* O4e0Se’ -WORD  LCOMS 
7664 03024’ 047503 033115 -ASCII /COMb/ 
7665 -WORD. LCOM6 
7666 . 033515 «ASCII /COM7/ 
7667 : é -WORD. LCON7 
7668 O3026e’ 047503 O34115 -ASCII /COMB/ 
7669 7 yf -WORD. LCOMB 
7670 x 034515 -ASCII /COM9/ 
7671 * O4e062" -WORD  LCOMS 
767e 030276" O40Se0 030124 «ASCII /PATO/ 
7673 030302" 042064’ -WORD. LPATOP 
7674 030304" 030524 -ASCII /PATI/ 
7675 ates F -WORD. LPATIP 
7676 le’ O40Se0 031124 -ASCII /PAT2/ 
7677 030316’ 042070’ -WORD. LPAT 
7678 030320’ 031524 -ASCII /PAT3/ 
7679 030324" . - WORD 
7680 030326’ 040520 032124 -ASCII /PATY/ 
7681 030332’ 042074’ -WORD. LPATYP 
7682 * 040520 O32Se4 a /PATS/ 
7683 * P ‘ LPAT 
7684 x 033124 -ASCII /PAT6/ 
7685 030346’ 042100’ -WORD_ LPAT' 
7686 030350" O40Se0 033524 -ASCII §/PAT?7/ 
7687 030354" O4e10e’ -WORD. LPAT?7P 
| 030356’ 034124 -ASCII /PATB/ 
130362" O4e104’ i LPAT 
7690 ae. 034524 -ASCII /PATS/ 
7691 * 042106’ -WORD. LPATSP 
7692 03037e’ O40S24 -ASCII /PATA/ 
7693 . 030376’ 042110" -WORD. LPATAP 
7694 030400’ 041124 -ASCII /PATB/ 
7695 O30404" O4elle’ , T 
7696 030406" 051103 043114 -ASCII /CRLF/ 
7697 O3041e’ 042114’ -WORD LCRETN 
7698 000 -ENDC 
7699 001 IF OF MM 
7700 LOSTBL: .ASCII /BUF / 
7701 -WORD  CBUFOO-PGEBA+PECONS 
7702 -ASCII /BFOO/ 
7703 -WORD  CBUFOO-PG&BA+PECONS 
7704 -ASCII /BFO1/ 
7705 -WORD C 1-PG&BA+PECONS 
7706 “ASCII / / 
07 WO CBUFO02-PGEBA+PECONS 
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/BF03/ 
CBUFO3-PG&BA+PECONS 
cs nf P-PERERHPEC INS 
CBUFOS-PGbBRYPELONS 
C F @-PCEBAYPECONS 
Cour 7-PGEBR+PECONS 
CAE PE -PCSENIPECONS 
oe 
i ne 
CBUF 11-PG&BA+PECONS 
CBUFT2-PCEBAYPECONS 
CBU 13-PcsansPécons 
CBUF 14-PGEBA+PECONS 
CBUF1S-PGEBASPECONS 


/COMO/ 
Len rea 
LE Ort | PGEERYPECONS 
LCOM2-PGEBA+PECONS 
/COM3/ 
LCOM3-PGEBA+PECONS 
/COM4/ 
LCOMY-PGEBA+PECONS 
/COMS/ 
LCOMS-PG&BA+PECONS 
/COM6/ 
LES -PGEBRIPECONS 
LCOM7-PGEBA+PECONS 
tt 
, -PGEBA+PECONS 
7" Faia 
a PECs 
(Par P-PGEBRIPECONS 


(PateP-PasBREPECONS 


Pil COMMON STORASE SYMBOL TABLE (DIRECT REFERENCE) 
7708 ASCII 
7709 WORD 
7710 ASCII 
771 “WO 
771 ASCII 
7713 WORD 
ae tee! 
7715 AeetT 
ole ASeTT 
7718 “Tigo 
7726 ASCII 
7721 WORD 
7722 ASCII 
7723 WORD 
7724 ASCII 
7725 WORD 
7726 ASCII 
7727 WORD 
7728 ASCII 
7729 RD 
7730 ASCII 
7731 ORD 
5535 “ORD. 
7734 GE 
7735 
773 
| 7037 LCTBST: .ASCII 
| 7739 “Ase ie 
| 7740 “WORD 
| 7741 -ASCIT 
| eat 
| -77uS “ASCII 
| 7746 “WORD 
Lath ASCII 
| 7748 OCT 
| 7750 “WORD 
| 7751 ASCII 
oes “Ase Ne 
| 7754 “WORD 
| 7755 ASCII 
| 2756 WORD 
| 7757 “ASCII 
| 7758 . WORD 
| 7759 ASCII 
| 2760 “WORD 
| 7761 “ASCII 
| 7762 . WORD 
| 


nr es ee oe ee ee 
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SEG 0165 
-Pll COMMON STORAGE SYMBOL TABLE (DIRECT REFERENCE) 


776 -WORD_ LPAT3P-PGEBA+PECONS 
7765 -ASCII = /PATY/ 

7766 -WORD_ LPATYP-PGEBA+PECONS 
7767 -ASCII /PATS/ 

7768 . WORD LPATSP-PGSBRSPECONS 
7769 -ASCII /PA 

7770 - WORD vent P-PGBBASPECONS 
7771 -ASCIT 


7772 . WORD (PAT 7P-PcEBAEPECONS 
7773 -ASCIT 


7774 WORD (PATEP-PGEBA+PECONS 
7775 ASCII /PAT9/ 
7776 WORD LPATSP-PGEBA+PECONS 
7777 ASCII /PATA/ 
7778 WORD LPATAP-PGEBA+PECONS 
7773 -ASCII /PATB/ 
7780 .WORD LPATBP-PG&BA+PECONS 
7781 -ASCII /CRLF/ 
7782 -WORD LCRETN-PG&BA+PECONS 
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7783 000 “ENDC 
j 





MAINDEC-11-DTMGA 
D -Pil 


2 


falda ona tsereearGENe 


ee 


Pee 


— 
Suter 


a 
r 


BE 
me 
8 
R 


oa 
be 
NS 


- -\ = 
Aa aAtA 
7 * 
-_- gd ( 
t Yalta 
yoale uP 


BARRA eval eeRceeeeeee CLic cee RRePERRERE RET EE: 


8 
R 


MPG INTERPRETER 
TEMPORARY STORAGE SYMBOL TABLE (INDEX REFERENCED) 


~ SBTTL 


030060 
030460 
031060 
031460 
032080 
032460 
033060 
033460 





MACY11 27(732) 


-ASCIT 
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TEMPORARY STORAGE SYMBOL TABLE (INDEX REFERENCED) 


/TMOO/ 


P 
isa, 
PTLGTH+DEVIW7 
ZERR / 
PTLGTH+DEVIWS 
/NBR / 

PNBR 

/SRC / 

PSRC 


/DST / 
POST 
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7833 .SBTTL INDIRECT REFERENCE SYMBOL TASLE 
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SEO 0167 





7836 030620" O44S51S5 046104 LINDTB: .ASCII /MIDL/ 
001 .IF_DF MM 


 IFF 
030624’ 177777 LMIDL: .WORD 177777 








7841 LMIDL: .WORD MIDLAD 

7842 000 . 

7843 030626’ 051106 O42S05 -ASCII /FREE/ 
1 -IF_DF MM 





7853 000020 oW 

78S4 030650’ 000000 LSMEND: .WORD 

7855 ‘ 

7857 

7858 FREEAD: .WORD P3CONS 316 BIT VIRTUAL ADR FOR FREE 
7853 ~WORD = XXXX ;18/e2 BIT ABSOLUTE ADDRESS 
7860 W XXXX sFOR FREE 

7861 FREEVA: .W XXXX ;18 BIT VIRTUAL ADDRESS 
7862 -WORD = XXXX ;FOR FREE 


7864 mp Ee: - HOR XXXX 516 BIT VIRTUAL ADR FOR MIDL 
7865 MIDLAA: . XXXX ;18/e2 BIT ABSOLUTE ADDRESS 
7866 «WORD  XXXX :FOR MIDL 

7867 MIDLVA: Bri XXXX i18 ft! VIRTUAL ADDRESS 

7868 WO XXXX ;FOR MIDL 

7879 


-IFF 
“TUE MAINDEC-11-DTMGA-C MPG COMPILER 


7876 “TITLE MAINDEC-11-DTMMA-B MPG COMPILER 
7877 000 “ENDC 
























Pll COMPILER MACHINE CODE TABLE 
.SBTTL COMPILER MACHINE CODE TABLE 
Toisinileiaileinilebeileieilebeieleisieieisiedeiseieileinieieiseieisoielieieieieieieleieeleiseidileieiseieissisisiciaiie 
COMPILER UTILIZES TABLE AS FOLLOWS- 
ENTRY ACTION 


STORES ~~ ENTRY AS OBJECT CODE 
STORES A VALUE OF 1 T CODE 
Sper: OS ADDRESS FOR ne PROGRAM 
CALCULATES SRC ADDRESS FOR THIS PROGRAM 
TES NBR ADDRESS FOR THIS PROGRAM 


CALCULA 

STORES S_AS 

PINOS AND STORES DEVICE ROUTINE ENTRY ADDRESS 
AS OBJECT CODE 

MODIFYS PREVIOUS CODE IF _V NOT A TAG 

CALCULATES WRIO ADDRESS FOR TH 

STORES A VALUE OF 2 AS OBJECT 

INT TS PACKED RODE Re BIT 

MODIFYS sg oy ENTRY IF V AG 

INTERPRE SWAPS WITH PRECEEDING WORD 


THEN 
INTERPRET 12 PAC REKED CODE AS BIT N 
INTERPRETS BACKED CODE AS VARIABLE-STORES BINARY EQUIV. 


© EEK EL EKER EAA ERE K RELA EE EE EERE EERE RE AA EEE EES REESE ALE E ELE ELE 


> 


— b— b— bb 


OF MW CUM NOWOMwWLuiUI 


Se ee ee ee ee ee ee ee re ere re ere re re rere Te 


242 LCMCTB: .BYTE 


PRET Rc eer er CPE Meee ERE e ic te 


;LOAD V WITH V 


nnn. nn 
ee P -11-DTMGA-C MPG COMPILER MACYL1 27(732) 24-SEP-76 13:54 PAGE 45 SEG 0168 
012737 o00000 x0000e . WORD al5737, 0,e 

Seen neneinemrs 


030652’ O04 

030654" 
7910 030662’ 003 O11 "BYTE sINCR V 
7911 030664’ 005237 O00000 WORD bbse27, 0 
7912 030570’ 002 021 “BYTE 3,021 :DECR V 
7913 030672’ 005337 OO00000 “WORD Abe537, 0 
7914 030576’ 004 013 "BYTE 4.013 sINCR V BY V 
7915 030700’ 062737 000000 cO00c2 “WORD 062737,0,2 
7916 030706’ O04 023 "BYTE 4.023 ;DECR V BY V 
7917 630710" 162737 000000 000002 "WORD  162737,0,2 
7918 030716’ Ole 030 “BYTE 1 : MOVE 
7919 030720’ 013700 000014 013701 “WORD 13700, 12.,13701,13. 
7920 wet nied 16 112122 13702, 14. , 112122 
7921 recess ote iets “ORD 5300, 1375’ 
7922 030742’ O04 033 "BYTE 4.033 :MOVE V TO V 
7923 * 013737 000000 000000 “WORD 013737,0,0 
7924 » “Ole 035 “BYTE 12,035 sMOVE V AT V TO V 
7925 * 012700 000000 012701 “WORD 012700,0,012701,0 

henart iieaae 112122 W 12702,0, 112122 
ras G30 7e" vines “WORD Bee O8 DOL a7 
7928 » "004 043 "BYTE 4.043 sADD V TO V 
7929 031000’ 063737 000000 000000 “WORD  063737,0,0 
7930 31 ’ aed 053 "BYTE 4,053 SUB V FROM V 
7931 031010" 1 000000 00000 WORD 163737,0,0 
7932 031016’ 006 045 6,045 :ADD V AT ¥ TO V 
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004537 
03S7ee’ 000000 O00000 LRTI: 
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004537 
LADDM,0,0,0 
6,055 
004537 
LSUBM,0,0,0 






;SUB V AT V FROM ¥ 


;SET V BIT N ‘ 
;CLEAR V BIT N 
;IF V BIT N SET GO TO LN 


4 247 

os 737,0,1 

ge? 37 .0,1 
013700,0,005100,032700,4 


:IF V BIT N CLEAR GO TO LN 
;IF V = V GO TO LN 

03 sIF V > ¥ GO TO LN 

O4 :IF Vv < ¥ GO TO LN 

OS sIF V => ¥ GO TO LN 

106 sIF V <= V GO TO LN 

;IF V <> ¥ GO TO LN 

-IF V AT V = V GO TO LN 
012702, 3, 122122, 001005 
000302 

005300, 001373, 000137,0 
17,117 sIF V AT V <> ¥ GO TO LN 
012700,0,012701,0 

012702,3, 122122,001004 


000302 
005300, 001373, 000402, 000137,0 

3, 244 :GO TO LN 
000137,0 


;LINK LN 
004737,0 
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LRTe2l: 


LRT3: 


LRT4: 


LRTS: 


LRT6: 


LRT7: 


LRT8: 


LRT9: 


LRT1O: 


LRT11: 


LRTle: 


LRT13: 


LRT14: 


LRT1S: 


LRTI6: 


LRT17; 
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;PRINT V IN ASCII 

;PRINT V IN OCTAL 

;PRINT V IN DECIMAL 
;PRINT V IN BINARY 
;PRINT V AT V IN ASCII 
;PRINT V AT V IN OCTAL 
;PRINT V AT V IN DECIMAL 
;PRINT V AT V IN BINARY 
;FILL V WITH RANDOM 


;FILL V WITH ASCII 


FILL V AT V WITH RANDOM 
FILL V AT V WITH ASCII 


;FILL V AT V WITH V 


;FILL V WITH PATN 





Fa 
§ 
“v ? 
od 
ope 


D 


TNGAC 
8034 
e037 
8038 
8039 
BO40 
8041 
BONg 
ae 
8047 
8048 
8049 
8050 
8051 
8052 
80S3 
B0S4 
80SS 
80S8 
8059 
8060 
8061 
8062 
8063 
8064 
BOES 
8065 
8067 
8068 
806' 
8071 
8072 
8073 
8074 
8075 
8076 
8077 
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000005 
000052 


000000 


000002 


000006 


MACYL1 27(732) 


LRTee: 


LRT23: 


LRT18: 


LRT19: 


LRT20: 


5 


= 
m 


S83 583 55 


2 
m 
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LFILP,O,S,0 


6,177 
064537 
LFILP,0,2,0 


om 
Eee 


,e,e,4 


o 


Y,5,0,0 


Baits, 
LVERFY,0,0,0 


7,161 


ee re er ee + + ee oe ee 


sFILL V AT V WITH PATN 


sROTATE V 
sROTATE V AT V 
sDELAY V 


;READ 


sREAD V 


;READ V INTO V 


;READ V INTO VY FROM N 


; WRITE 


;WRITE V 


;WRITE V FROM V 


WRITE V FROM V TO N 


;VERIFY V WITH V 


;VERIFY V AT V WITH V 


;BREAK V 
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DTMGAC. COMPILER MACHINE CODE TABLE 
8078 032134’ 004537 .WORD 004537 
8079 react 1 oo0007 ‘ (WORD 10.,0,7,7,11. 
144’ aooaG? Sop0T3 
Soar pastes” oooaiz BOR eee 10 setae vhs 
| 8082 b3sise° 60800 00000? 000007 “WORD 0,7,7,4 
032164" 900004 
8083 001 IF NOF MM 
g084 032166’ 004 251 .BYTE 4,251 sVECTOR V TO LN 
808S 032170’ 012737 000000 oDco002 -WORD 012737,0,2 
Sos? 032175" 03 (ase ENO’ BYTE 3,252 LETGO 
3088 pacies oo4 “WORD 004537 ; 
8089 G3e202" 035216" LRT29: <WORD CUPCR 
8090 * "007 253 “BYTE 7.253 s ENTRY 
8091 632208 01054 O10446 010346 “WORD 10546, 10446, 10346 
8092 14° 010246 010146 O10046 “WORD 10246. 10146; 10046 
| §8093 O3sez22" 010 254 “BYTE 8.,254 EXIT 
8094 Osea 012600 012601 012602 "WORD 12600, 12601, 12602 
8095S Oseese" 012603 012604 012605 “WORD 12603, 126047 12605,5 
Bose 032242" me 255 isl “BYTE 2,255 RESET 
80398 O3ec44’ posit g: : 
| 8099 000 ENDC 
B100 O322%’ O02 262 .BYTE 2,262 : PAUSE 
| 8101 032250" 000017 “WORD = 15. 
| B10¢ O32e52" Oe 263 "BYTE e263 WORD V 
| g104 passer BS 003 240 ore 3,240 sEND (MUST BE LAST IN THIS TABLE) 
| §10S 032260’ 004537 “WORD 004537 
| B10B 032262" 035016" LRT30: ; GE 
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-SBTTL MPG COMPILER 
ciaiaiaialalcleleleleleleleleleleieleisiaiaisieieielelelsleieieisisisleleioeleielelelsieleieieiehdiehdilelelelelelsieleleisleieleide 


LCPILE: MOV 
HOV 


oo 


(SP) 
Ra LPRPTP 
SOCPRES, (83) RY 


- i aacitai 
CFMST, LFREE 
RY 


R3,LCPPTS 


THIS ROUTINE CONVERTS THE ad poh 

pacKe? CODE INTO MACHINE LANGUAGE 

AND STORES IT IN MEMORY. 

CALLING SEQUENCE - ENTERED FROM UPLP 

ENTRY - R3 POINTS TO PROGRAM TASLE 

EXIT - RETURNS TO CALLING PROGRAM (CONTROL ROUTINE) 


5 ELEAAELELE LLL LEL HALL FLELEFRALEL LRA AAAAAKA LAA LAR ELA ALLA LEAL LAALSALFAAE 


‘VE P P TBL POINTER 

;RESET OBJ CODE PRES FLG 

;POINT R4 AT PACKED SOURCE 

;SELECT PARY 

; POINT Re_AT OBJECT ADDR 
UNC CODE 


WAS I 

EY Rg (anes 
;BUMP_POINTER TO NEXT ENTRY 
:D0 IT AGAIN 

;SET PARY SELECT BITS 
STORE AS OBJ END 

;STORE AS OBJ END 


;CALC PROG LENGTH 
;AND PUT IN TABLE 


;UPDATE SYMBOL TABLE 
;FREE MEM END ADDR TO RY 





MAINDEC-11-DTNGA-C MPG C 
DTMGAC.P1l MPG COMPILE 


8164 O324e0’ 016304 
8165 001 
He 
16 000 
8168 O3e424" 016367 
8169 001 
000 
032432’ 010703 
032434" 062703 
116401 


= 


; 


eo 
ss 





8170 
171 
g172 
8173 
8174 ’ 
8175 , 
8176 , 
8177 , 
8178 , 
8173 , 
ue Ges. tes 
| Bl * 000167 
6163 > [pe7e9 
e184 * 001405 
8185 an | 
8186 * 001433 
8187 032516" O0042b 
| B1B8 032520" 126463 
B1B9 032526" 001425 
| B190 032530’ 016703 
Bie GaoeN" 
| 32540" 
| Blas Gace’ 
|e eee: 
ae Bitiy 
(«ae * 111300 
| 61g + bepats 
| gene * 000764 
| 8201 * 000000 
| Bete * 111300 
| B203 * 006300 
| 8204 * 060003 
| 820s , 
8206 * 1146 
8207 ’ 012714 
8208 Ol 
| B2D9 , 
| 8210 O32620° 010701 
|; Gell bee’ i 
| «BBle Baebes: 
Bel p32’ 016714 
«Bis Gaeeie” 112367 
6517 + 006367 
Bia Oseeee’ 105067 
8219 O3eb62’ 105067 


} 
} 
| 


00002e 


ocode4 


OMPILER 
R 


001506 


000001 
000001 


000001 


000001 
000001 


MACYLL 27(732) 
MUV 
LIF OF MM 
BIS 
.ENDC 
MOV 
JIF OF MM 
BIS 
.ENDC 
LCPGNE: MOV 
ADD 
LOPGFC: MOVE 
CPB 
BNE 
CLRE 
ER 
LCPCNR: CMPB 
BNE 
INCB 
LCPPIB: JMP 
LCPFTE: CMPB 
BEQ 
CMPB 
BEQ 
BR 
LCPEIT: CMPB 
BEQ 
MOV 
ADD 
ADD 
105:  CMPB 
BEQ 
CHPB 
BEG 
MOVE 
ASL 
ADD 
ER 
LCPBUG: HALT 
LCPBTP: 
LCPFFC: 


eoRsauayBaxsasueps 


2o 
wo 
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PSRCST(R3) ,R4 
#P4CONS , R4 
POBJST(R3),LCPOBA 
#P4CONS,LCPOBA 


L 
1(R4), 1(R3) 
Lcprre 

LCPBTP 

1(R4), 1(R3) 
Lcprrt 

LPKPTP, R3 
8PTLGTH+DVCTEP , R3 
#377, 1(R3) 


I(R4), 1(R3) 
Lcprre 


RESoL 
= 


DQOORDEO 
SBBOG- aa. 
ems =z 


;POINT R4¥ AT PACKED SOURCE 
;SELECT PARY 

;SET OBJ ADDR=0BJ START 
;SELECT PARY 


;POINT R3_AT COMPILE TEL 
;GET FUNCTION CODE 

» WAS i IMM’ 

s NO-CONT INUE 

sCLEAR NO-RETURN FLAG 
; YES-HANDLE Freie CASE 
MS Se WITH NO RETN 


;ELSE BUMP POINTER 
;COMPARE FUNCTION CODES 
BE _END 


;MUST 

sGET P TBL POINTER 

‘AT COMPILE TBL EXTEN. 
ND OF TBL? 


‘YES - MUST BE BUG 
COMPARE FUNCTION CODES 
‘BRANCH IF FOUND 


sELSE BUMP POINTER 
: TRY AGAIN 

SYES-HALT (MPG BUG) 

‘GET ENTRY LENGTH 

‘CONVERT TO BYTES 

‘BUMP POINTER TO NEXT ENTRY 
!TRY AGAIN 


;PUT LINE # IN ERR MSG 


;ADJUST SOURCE POINTER 
;GET ENTRY LENGTH 
;SAVE FUNCTION CODE 


;AND COUNT 
;CLEAR SWAP FLAG 
;CLEAR DEVR INST FLAG 


SEO 0174 
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DTNGAC.Pil 


8220 032666’ 


is 


ee SSS NSIS 


seisosonee 


u 
A 


Rh 
Re 


eR 


Ho Ge Ge ewe Gol oo Ss 


cs 
: 


+4 
Sh 


a 


S38 


-_ 
Be 
m8 


a 


8 
8 


oO 
hb aN 


a 


Oo 
— 


= 


ee 


a § 


8 
be 
N 


: 


BS 
Bs pe bo Oe 


000001 


000002 
000650 


001046 
000016 


174270 
ooocde 


MPG COMPILER 
MPG COMPILER 


001210 


001172 


oo000s 


MACY31 &7(732) 


LCPGTE: MOV 
CLRB 


(R3) Re 
Lecobr 
CMP R 


2,815. 
BHI JCPTSF 
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;GET TABLE ENTRY 
;RESET 2 CODE FLAG 


;IF >15 GO TEST SWAP FLAG 


sPROCESS COMPILER CODES 0 THRU 15. 


LCPTGO: TST Re 
BEQ ICPGNV 
LCPTG1: DEC R2 
NE LCPTG2 
MOVB  #1,LCPSWP 
MOV (R4)+. Re 
BR JCPTSF 
LCPTG2: DEC Re 
BNE LCPTG3 
MOVB  #1,LCPSWP 
INCB  L2cODF 
BR JICPGNV 
LCPTG3: DEC R2 
BNE LCPTGY 
CMPB sO, (RY) 
LCPATI 
1(R4),RO 
BIC #17,R0 
CMPB Os 360, RO 
BEQ LCPNT1 
MOV #122122, 2(R3) 
MOV #240, 6(R3) 
ICPGAV 
LCPNT1: MOV #122102, 2(R3) 
MOV #302, 6(R3) 
JCPGNV: JMP LCPGAV 
LCPTG4: DEC Re 
BNE LCPTGS 
MOV (R4)+.R2 
BR JCPTSF 
LCPTGS: DEC R2 
BNE LCPTG6 
MOV #2, R2 
JCPTSF: JMP LCPTSF 
LCPTG&: DEC 
BNE LCPTG7 
MOV LCPPTS, Re 
ADD #PROIOA, Re 
MOV PC,RI 
ADD sL TGADR-. , Rl 
CLR ) 


ee + ee ee 


(Ri 
MOV (Re) ,2(R1) 





;SE 


;IF O GET NEXT VARIABLE 


;SET SWAP FLAG 
;PACKED ENTRY TO Re 


;SET SWAP FLAG 
;SET THE 2 CODE FLAG 


IRST BYTE BLANK 
S_NOT A TAG 


;PACKED ENTRY TO Re 


T Re=e2 
GO TEST SWAP FLAG 


;ADORESS OF READ AREA TO Re 
;POINT R 


T 
CLR MSW OF ADR 
UPDATE LSW OF ADR 









MAINDEC-11-DTMGA-C MPG 
DTMGAC.P11 


8276 
8277 


PCIe Rene MMIC E SU SH 


GeHeUEe BORE 
| 


oe 


ne en ce re nee te eo eee ne re ce. ee ES 


TAL ALAL ALA Atay At At a} 
ee 


A 
x! 
5.00 NOM £wre-O 


BSS URNISANE 


8 


MPG COMPILE 


033106" 000420 


BEBRRBBBBE 
ESWUN UO SRS 
ae 


ah 


NSERS HENS 
85 segs 
a ee 


Pen 


th 
tn 
vf,1 


=i oe 
ala 
ATA 
td aol 
ro 


6 ioe Oe 


& 
: 


001014 
000020 
001014 


174226 
900002 


oo0000s 


cOMPILER 
LER 


00009: 


177774 
177774 


-ENDC 
LCPTG?: pee 


LCP6&7C: MOV 


 ENDC 

LCP67E: tg 

SUYROT: MOV 
BR 


LCPTG8: DEC 


LCPNTe: MOV 
BR 


LCPTGS: pee 


LCPT1O: DEC 
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LCP67E :GO SET UP CORRECT REG 
NPRFLG -TEST IF NPR DEVICE 
LCP67E : N K 
8PRDIOX-PRDIOA, Re :POINT AT 18 BIT ACR 
LCP67C :G0 GET ADR & TEST FLAGS 


LCPTGS 
LCPPTS, Re 





#PWRIOA, Re sADDRESS OF WRITE AREA TO Re 
LCPFCS, #001 ‘THIS THE ’ROTATE V’ INST? 
SUYROT N Y= 

PC RI ‘POINT RI 

SL TGADR-. ,R1 :AT ADDRESS AREA 

(RI) “CLR MSW OF ADR 

(R2),2(R1) ‘UPDATE LSW OF ADR 

-TEST IF NPR DEVICE 

LCP67E :IF NOT, SKIP 
aPURIOX-PHRIOA, Re -POINT AT 18 BIT ADR 
(Re)+'2(R1) ;UPDATE ADDRESS AREA 

#10, MASS70 :TEST MASS BUS/70 FLAG 

7E ‘IF SET ABS ADR ALONE 

SUNIMAP, CSYSFW ‘TEST UNIBUS MAP FLAG 

LCP67E ‘IF NOT SET, LEAVE ABS ADR ALONE 
(R2)+, (RL) ‘ELSE GET 18 BIT VADR 

(Re), 2(R1) 

R1,R2 

ADR1 8B :GO STORE IN OBJ CODE 

(Re) Re ‘GET WRIO’S 16 BIT ADR 
BCPTSF GO TEST SWAP FLAG 

R2 

LCPTG9 

840, (R4) :IF FIRST BYTE BLANK 
LCPAT2 IT IS NOT A TAG 

I(R4). RO : 

#17,R0 

#360, RO 

cpnte2 


L 

#023737, -4(R1) 
LCPGNV 
#023727, -4(R1) 
LCPGNV 


R2 
LCPT1O 
85, Re 
BCPTSF 
R2 


MRINDEC- LI-DTMGA-C MPG COMPILER MACYL1 27(732) 24-SEP-76 13:54 PAGE 46-4 SEG 0177 
DTNGAC.P11 MPG COMPILER 
8332 033244’ 001014 BNE LCPT11 
8333 033%’ 116700 o90672 MOVB tePECS. RO -PICK UP FUNCTION CODE 
B33 O33e5e, 916702 000656 MOV LCPPTS’ Re ‘PICK UP PT P 
, 174352 JSR RS, FENTRY -FIND DEVICE ROUT ENTR 
8336 > 90041 .WORD LCPABT-. ; G0 If N ERE 
8337 4’ 105267 000634 iNCB. —— LOVRIF SET THE DVR INST FAG 
033270’ 110167 O00€33 MOVE R1,NPRFLG -UPDATE NPR FLAG 
8339 001 IF OF MM 
BIT #CPU70, CSYSFW ; SYSTEM = 11/70? 
8341 BEQ 1 
2 MOVB §-NPRFLG.R1 Pies SET MASS70 FLAG 
£343 BIC 8177762 RI ‘EQUAL TO 
8344 MOVB 1,MASS70 “MASS BUS DEV FLAG 
8345 c90 .ENDC 
B36 033274" 000433 i0$: BR BCPTSF 
* 005302 LOPT11: DEC Re 
8349 nee 001002 BNE LOPT12 
033302’ o0S002 CLR R SET R2 = 0 
B35! 033304’ 000427 BR BCPTSF 
8353 033306’ 005302 LCPT12: DEC R2 
8354 033310’ 001005 BNE LCPT13 
8255 032312’ 016702 o00b16 MOV LCPPTS, Re 
8356 091 IF DF MM 
8357 BIC #PYCONS , R2 :SELECT PARO 
8358 000 .ENDC 
8359 033316’ 062702 OO0D11S ADD #PNBR, Re :ADDR OF NBR TO Re 
| B360 933322’ 000420 BR BCPTSF 
8362 033324’ 005302 LCPT13: DEC R2 
8363 0333206’ 001005 BNE LCPT14 
| 8364 033330’ 016702 o0cE00 MOV LCPPTS, Re 
| 8365 01 .IF DF MM 
| 8366 BIC #P4CONS, R2 ;SELECT PARO 
| 8367 090 .ENDC 
033334’ 062702 900120 ADD #PSRC,R2 ;ADDR OF SRC TO R2 
| 8369 033340’ 000411 BR BCPTSF 
8371 033342’ 005302 LCPT14: DEC 
| 8372 033344’ O0100S BNE LCPTIS 
8373 033346’ 016702 oo0sb2 MOV LCPPTS, Re 
8374 001 IF OF MM 
8375 we ate BIC #P4CONS, Re ;SELECT PARDO 
«Be 033352’ 062702 000122 ADD #PDST, Re -ADDR OF DST TO R2 
8378 033356’ 000402 BR BCPTSF ‘GO TEST SWAP FLAG 
| $380 033360’ 012702 oo0001 LCPT1S: MOV #1 
| 8381 033364’ OO00SED BCPTSF: BR eaRe GO TEST SWAP FLAG 
8383 GET NEXT VARIABLE FROM PACKED SOURCE 
| Bage =f ’ 122714 OO0040 LCPGNY: CMPB = #40, (RY) i1E FIRST BYTE IS A BLANK 
| 8386 033372" 001452 BEQ = LCPOCT ARTABLE IS AN OCTAL # 
: @387 033374’ !16400 000001 MOVB  I(R4),RO CET SECOND BYTE 








uw 


i) 
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PRC Dierererr tt 


Pah pt ee 
WONTU£CWMUH-O 


se 


PoP PEELE LLL LSS 


el 


000004 
000516 


000S04 
173176 
000500 
000004 
000455 
o0o002 


900450 


000434 
000427 
000434 


MAINDEC-11-DTNGA-C MPG COMPILER 
DTMGAC.P11 MP LER 
’ 042700 000017 
B53 Baa404 ' {e270 000360 
| 
| 


1 

CMPB  =s-& 360, RO 

BEQ CPNAL 

MOV ,RO 

MOV £4'R1 

MOV R3,LCPTM1 

MOV LCPPTS, R3 

JSR S, TAGLUP 

.WORD LCPERR-. 

MOV LCPTM1,R3 

ADD 84,4 

TSTB  NPRFLG 

econ 

BR LCPTSF 

; TWO WORD ADDRESS PROCESSING 
ADR18B: DEC LCPTEC 

TST (R3)+ 

CLRB  LCPSWP 

CLRB §-NPRFLG 

MOV LCPOBA, RO 

MOV -(RO),-(SP) 

MOV (R2)+’ (RO)+ 

MOV (Re), (RO)+ 

MOV (SP)+, (RO)+ 

MOV RO, RI 

BR LCPTEN 

sOCTAL OR DECIMAL # OR A LINE # 
LCPOCT: INC RY 

MOV R4, RO 

JSR RS: OCTBIN 

.WORD LCPERR-. 

BR LCKeWD 
LCPNAL: CMPB (R4),#’L 

BEQ LCPFLN 

CMPB OO s«(R4) . #°D 

BNE LCPERR 

NC RY 

TSR Re’ DECBIN 

. WORD LCPERR-. 
LCKeWD: ADD #3 

S18 LOURIF 

Feta APRFLG 

BEQ 10$ 

TSTB = L2CODF 

BEQ 10$ 

MOV PC. Re 

ADD aL TGADR-. , Re 

CLR (Re) 

MOV RO, 2(R2) 


L 
S ARE ONES 


;LOOK UP TAG 


;ADJUST SOURCE POINTER 
; TEST IF 2 WO ADR NEEDED 
;BRANCH IF Y 


ES 
PUT TAG VALUE IN Re 
:THEN GO TEST SWAP FLAG 


;DECREMENT TBL END CTR 
;BUMP COMPILER TBL PTR 


;POINT RO AT OBJ CODE 
;SAVE OLD CONTENTS 
;STORE MSW OF ADR 
;STORE LSW OF ADR 
;PUT BYTE COUNT HERE 
;CONT LIKE ORIG MPG 


;CONVERT OCTAL TO BINARY 
;GO CK _IF 2 WORDS NEEDED 
;1S FIRST AN °L’ 

; YES-GO FIND LINE NBR 

;I1S FIRS A *D’ 
;NO-SOMETHINGS WRONG 
;CONVERT DECIMAL TO BINARY 


sTHIS A DEV ROUT INST? 
+S HORS. 
ta ADR NEEDED? 


Y.N-l 
“PROCESSING A 2 CODE? 
;Y,N-10$ 

:SET UP ADR OF ADR STORAGE 


;CLEAR MSW OF ADR 
;STORE LSW OF ADR 





MAINDEC-11-DTMGA-C 
DTMGAC.P11 


2 
= 


Huu 


ata 
ta! 
<i 


REC OR SRERRLER 


‘ER 


Bae 


MPG COMPILER 
716 
010402 
tea 000302 
167 3 000270 
004567 173520 
000020 
Ue Se 
016102 000004 
000417 
OO4S67 152330 
000402 
000250 
pier 000230 
0161 o000e4 
001 
000 
160100 
010061 000026 
016100 000024 
001 
000 
012604 
000205 
016701 0002 
1ieree 00017e 
1406 
014100 
010e21 
010021 
ise, ms 
a 
; BIE 
001404 
Bis We 
rath 000134 
167 176416 
016701 000114 
052711 000100 
016700 000102 
012604 
000205 


MPG COMPILER 


000124 
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BR ADR18B 
10$: MOV RO. Re 

BR LCPTSF 
LCPFLN: MOV 


RY, R2 
MOV R3:LCPTM1 
MOV LCPPTS, R3 
JSR RS, LFINLN 
CPERR-. 


.WORD LCPE 

MOV LCPTM1,R3 

ADD #4, R4 

MOV 4(R1),R2 

BR LCPTSF 
LCPERR: JSR RS, CTYPE 

-WORD 402 

WORD LCPEMS-. 


LCPABT: MOV LCPPTS, RI 
MOV POBIST(R1),RO 


Bis #P4CONS , RO 


ENDC 

SUB R1,RO 

MOV RO’ PLNGTH(RI) 

MOV POBJST(R1),RO 

IF DF MM 
#PYCONS, RO 
ENDC 

MOV (SP)+,R4 

RTS RS 

TEST THE SWAP FLAG 
LOPTSF: MOV LCPOBA,R1 

TSTB  LCPSWP 

BEQ ¢ 

MOV -(R1),RO 

mv, RGLRL 

CLRB = LCPSWP 

BR LCPTEN 
LCPNSW: MOV Re, (R1)+ 
LCPTEN: MOV RI’LC 

DEC LCPTEC 

BeOS 

IMP L rs 
LCPTOE: CMP LCPOBA, LCPOEN 

BEQ LCPOUT 

JMP LCPGNE 
LCPOUT: MOV LCPPTS. R1 

BIS #OCPRES, (R 

MOV LCPOEN, RO 

MOV (SP)+,R 

RTS 5 


:GO STORE 2 WORDS 
:GO TEST SWAP FLAG 


;LOOK UP LINE NUMBER 


:GO TEST SWAP FLAG 
;TYPE NON EXIST LINE MSG 


;SELECT PARY 


;SUBTRACT OBJECT LENGTH 
:FROM PROGRAM LENGTH 
:PASS FREE MEM START 


;SELECT PARY 


;RESTORE RY 
;RETURN TO CALLING PGM 


;RECOVER OBJECT ADDRESS 

; TEST THE SWAP FLAG 

;BRANCH IF NO SWAP 

;GET PREVIOUS WORD CONTENTS 
;STORE NEW CODE AT PREV. ADR 
;STORE OLD CODE A NEW ADR 
RESET SWAP FLAG 

;GO0 TEST FOR TABLE END 

3ST gh AT NEW ADR 

; DECRENENT tar ow. CNT 


IYES-GET OUT 
‘NO-CHECK NEXT PACKED ENTRY 


;SET OBJ CODE PRESENT FLAG 
;PASS FREE MEM START 
;RESTORE RY 

;RETURN TO CALLING PGM 


;SPECIAL HANDLING FOR PRINT # AND PRINT # 


SEG 0179 








SEO 0120 




















MPG COMPILER 


01 000190 LCPPRI: MOV LCPOBA, RI GET CURRENT OBJ ADDR 
7el1 004537 MOV #4537, (R1)+ ¢ 
1 175340 MOV LRT3, (R134 ‘TO PRINT ASCII PGM 
062700 ooo0o4 ADD #4/ RO 


#P4CONS , RO ;SELECT PARO 


RO, (R1)+ ;STORE INLINE ADDRESS 
(R4) RO 


“wrt se¢ 


Beeuae 


Sl 


- 


svwwesehmUmOMmUCUOUC FMrhUCMWrhCUCMWMrlhUCOhUC(<C HhC«CrS 
8 
= 
FON 
ow 
m 
oOo 
oO 
‘Uv 
=z 
= 
x< 


;CALCULATE BYTE COUNT 
*STORE IT 

DEC (RL )+ *DECR BY 1 
000027 TSTB —— LCPNRF ; TEST NO-RETURN FLAG 


pati 
25 
3 
2 


;CONTINUE_IF NOT SET 
2(R1) ;OTHERWISE COMPLIMENT BC 


atatgtatatatutytatial 
ob bo a pe he pe 
WONOU£C WHO 


OOS46 NEG “ 
112421 LCPMTX: MOVB (R4)+, (R1)+ ;MOVE TEXT INLINE 
005300 DEC 0 


B 


001375 


034102 
034104 
034110 
034112 
034114 BNE LCPMTX 
8521 034116’ 010167 OO0016 MOV R1,LCPOBA ;SAVE NEXT OBJ ADDR 
BS22 O34l2e’ 000726 BR LCPTOE :GO TEST FOR OBJ END 
bes 034124" 000 LOVRIF: .BYTE 0 sDEVICE ROUTINE INST FLAG 
8525 034125’ 000 LeCODF: :BYTE 0 “COMPILER 2 CODE FLAG 
8526 O341e6’ 000 MASS70: .BYTE 0 *MASS BUS DEV ON 11/70 FLAG 
8527 034127’ O00 LG: .BYTE 0 :NPR FLAG ADDRESS 
8528 034130’ 000 LCPSWP: .BYTE 0 . 
8529 034131’ 000 LCPNRF: .BYTE 0 :PRINT NO RETURN FLAG 
8530 034132’ 000000 LCPOEN: .WORD 0 ‘OBJECT END ADDRESS 
8531 Pea tESy 09006 LCPPTS: .WORD “PROG TABLE POINTER SAVE 
8532 136’ LCPTEC: :WORD 0 “TABLE ENTRY COUNT 
8533 034140’ 000000 : .WORD O :OBJECT CODE ADDRESS 
8534 034142’ 000000 LCPTM1: .WORD 0 
B53 034144’ 000000 CS: :WORD O ;FUNCTION CODE SAVE 
8537 034146’ 047516 O26516 OS410S LCPEMS: .ASCII /NON-EXISTENT LINE REF ON LINE / 
O341S4’ 051511 042524 052116 
034162" O46040 047111 020105 
034170’ O42S22 O20106 047117 
034176’ O46040 047111 020105 
034204" O40 
8538 O34205’ O40 040 O40 LCPERL: .BYTE 40,40,40,40,0,0 
034210’ O40 000 000 
8539 034214’ EVEN 
001 LIF DF MM 
8541 
gS42 
8543 ALPTl= .-CLOCZ 
BS44 ALFCT1= ALPT1&8000077/2 
BS4S 002 / 
8S46 ALQUNI= 31.-ALFCT1 
Bou? -BLKW ALGUNI sALIGN TO A 32 WORD BNORY 





MAINDEC-11-DTNGA-C MPG COMPILER MACYL1 27(722) 24-SEP-76 13:54 PAGE 46-7 
DTMGAC.P11 

| 

i 

| 

| gaa? 

| e549 001 "ENDC 


ro --- 


MAINDEC-11-DTMGA-C_ MPG COMPILER MACY11 27(732) 24-SEP-76 13:54 PAGE 46-8 SEO 0181 
DTNGAC.Pil MPG COMPILER 

8SS0 000 . ENDC 

8551 

852 001 .IF_DF MM 

853 


Beer 


a ee ee a oR 
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LIFF 
“TITLE MAINDEC-11-DTNGA-C MPG / USER PROGRAM SHARED CODE 


“TITLE MAINDEC-11-DTMMA-B MPG / USER PROGRAM SHARED CODE 
000 -ENDC 





ee a 


8559 
8S 
8561 


8563 
8S64 
8S6S 


SHARED CODE CONSTANT 


001 


034214’ 000000 


MPG / USER PROGRAM SHARED CODE 


M14 
S 
60 
BSbe 5 
eee IFT 
8574 IFF hic 
76 000 
8577 
000001 MM MPG 
8579 
o00004 § AN LSI-11 
OF 
' 


MACY11 27(732) 
.SBTTL SHARED CODE CONSTANTS 


MAXPRG= 16. 
IF OF MM 
PGEBA: 


USTKWK: MAXPRG+1%4 


USRSTK: 


- BLKW 


CSYSFW: . 
CSYSFW: . 


ACHE= 


CTROBP= 100000 


CRTBL: .REPT MAXPRG 
-WORD 0 


-WORD 177777 
-IF DF MM 


CRTEXT= MAXPRG+1#2 
CTBLEX: .REPT MAXPRG 
-WORD O 


.ENDR 
FIXADR= 100000 


XXXX 
XXXX 


FMPAR3: 
FMPARY: 


- WORD 
- WORD 


24-SEP-76 13:54 PAGE 47 


;MAXIMUM # OF USER PROGRAMS 


;SHARED CODE PAGE BASE ADDRESS 


;USER PROGRAM’S STACK 


;MPG’S SYSTEM FLAGWORD 
;MPG’S SYSTEM FLAGWORD 

MEMORY MANAGEMENT VERSION 
cpu REQUIRES NTP MTPS/MFPS INST’S 
:CPU = 11/70 (MASSBUS USES ABS ADRS) 
sCPU = 11/40 (NO MMMRL OR MMMRS) 
SE 2 att ADDRESSING 


ong: MEMORY PRESENT IN CPU 
‘SER L_USE pos FLAG 


; HOLD oC NERS INT INT Ene hee 


; SUPPRESS L 
;PRINT We 8 MMEDICAT D FLAG 
:REQUES a RESET 
;C T BEING PROCESSED 


ss CONTROL ROUTINE TABLE 


£3 BACH ENTRY” Cok CONTA & BIT ADR OF 
; Ha Tea Se nae 4 USER PROG 


; TABLE EXTENSION ACCESS VALUE 
;CONTROL ROUTINE TABLE EXTENSION 
;BIT_ 15 = 1 = FIXED ADR PROG 
;81TS 8-O= og AREA LENGTH 
: # OF 32 WO BLKS) 


;VALUES FOR USER'S PAR’S 3 THRU 7 
:FREE MEM PAR’S 


SEQ 0182 











La tena MPG / USER PROGRAM SHARED CODE MACYL1 27(732) 24-SEP-76 13:54 PAGE 47-1 SEG 0123 


DTNGAC.P11 SHARED CODE CONSTANTS 
Bete FMPARS: - HORE XXXX ; 
SPPAR6: .WOR XXXX ;SHARED PAGE PAR 
aff IOPAR7: .WORD 007600 ;1/0 PAGE PAR 
-WORD 0,0,0 ;FILL WORDS 
8621 ; VALUES FOR USER’S POR’S 3 THRU 7 


FMPOR3: - WORD 
. FMPORY: .WOR XXXX 
FMPDRS: .WORD  XXXX 


x 
S a a ee te 
a p00 


XXXX ;FREE MEM PDR’S 


8629 “A / */ 

gpa ebe2’ Gy LINBUF: .BLKB 100; ;PROGRAM STATEMENT BUFFER 
B63e 034430’ O0S01S LCRLF: “ASCII «15><12> ;CARRIAGE RETN, LINE FEED 
8633 : 0000 .WO 0 


a re 








DTNGAC .P USER PROGRAM 
8635 .SBTTL USER PROGRAM DISPATCHER 
8637 hcichaelelehelelaiaieheialeelelelelehaieisiaieileieiaieieieleleltieleieieileleloieisleleieieleislaieidicieideleleieieieldieideleidd 


MAINDEC- 11-DTNBA-< MPG USER PROGRAM SHARED CODE MACYL1 27(732) 24-SEP-76 13:54 PACE 48 SEO 0104 
8539 ; THE PROGRAM DISPATCHER ROUTINE WILL BE ENTERED FROM THE 
8640 ; DECODE ROUTINE WHEN A NULL KEYBOARD ENTRY OR A RUN CMND 
864] ; 1S ENTERED. IT WILL HE PROGRAM SLOTS AND LOOK FOR 
BEY? ; A USER THAT IS AVAILABL uf oh EXECUTION. IF FOUND 
8643 ; CONTROL WILL BE TRANSFERRED TO ECT 
BE44 ; CODE. IF A PROGRAM 15 NOT AvAI LBL ING OF THE PROGRAM 
8645 ; SLOT Mitt CONT INUE AS LONG AS A WAITING FOR 
E45 ; 179 RMINAT ION ARE WAITING FOR INATION OR 
8647 ; AVAILABLE FOR EXECUTION, RETURN WILL BE MADE TO THE 
Be48 CORTANG DECODE ROUTINE WHICH REQUESTS A COMMAND ENTRY. 
oe SEFFEREELELH SSI REAR KLE RRS HERE RHE KES LAKE KER PRALEGSL ERLE SERA HEEL ES RE LREE 
l 
e652 
8653 034434" 010705 CPGDSP: MOV ;SET UP ADR OF SYSTEM FLGWD 
Se ie: Bere ire Soe 
, i 1000 BIS SCAIDLE, ihe ;SET ALL IDLE’ FLAG 
* 010704 MOV PC, RY :SET UP START ADR OF CNTRL ROUT TBL 
’ 77546 ADD SCRTBL-. ,RY 
’ 7 hoadoe DEC CTOCK sDECR 1/0 CHECK VALUE 
B53 Caeg: 400003 BPL CPGTTE -IS IT EXHAUSTED? (Y,N-CPGTTE) 
’ Ol MOV (PC)+, (PC)+ ‘RESTORE ITS VALUE 
8661 O34464" OO0000 CTOADJ: .WORD 0 
B62 034466" 000000 CTOCK: :WORD 0 
B63 934470" 010427 CPGTTE: MOV RY, (PC)+ ;SAVE CURRENT CNTR ROUT TBL ADR 
B64 O34472" O00000 CPGCPE: .WORD 0 :CURRENT CNTRL ROUT TBL ENTRY AOR 
8655 OaHH74: 005714 TST (RY) :THIS PROG SLOT IN USE? 
BEG 76° 001442 BEQ CPGNXT :Y, N-CPGNXT 
8657 001 IF DF MM 
8668 “FF 
| bbs 034500’ 011403 Hoy (RY) ,R3 GET PROG TBL ADR 
8671 MOV (RY), a8KPARY MAP KPAR 4 TO THIS PROG 
8672 MOV sP4CONS RB ise up ITS VIRTUAL ADR 
8673 MOV SPPARG , J8KPARG KPAR & TO SHARED CODE 
8674 000 . ENDC 
8675 034502" 005713 TST (R3) 1 PROG’S ACTIVE FLAG SET? 
8676 O34504’ 100037 BPL CPGNXT : 
8577 , CLR (PC)+ "RESET T/0 ERR ROUT ADR 
86 10° TOEADR: .WORD O 
| 8 , 13 00004 BIT SERSTOP, (R3) ; ERROR STOPPED THIS PROG? 
8580 ’ O01 BNE CPGNXT ;N, Y-CPGNXT 
8681 . Sie? oooo0e2 BI SURSTOP, (R3) jUSER STOP THIS PROG? 
ees ; ose713 000040 eit » (RB) ipAT DEV § V STILL DEDICATED TO THIS PROG? 
| 8685 Stet be? 1S 001000 10S: BIC AAIDLE, (RS) aa “au IDLE’ AELAG 
| pa] , 713 on eit oa BaTaTOTHCTPaIO, (R3) ; MAING FOR 1/0 TERM? 
| Bees neve 036713 000020 BIT acrnto, (R3) HTAIS. 7 XEGHSOLE OR PRINTER 1/0? 
| &690 034556’ 001012 BNE :N, Y-CPGNXT 






























032763 000040 000002 
OS 

177672 

0C0030 


~ 
— 


8691 O34S60 sDOIOT, POPSW(R3) “00 1/0 TIME OUT? 
CPGN :Y, N=CPGNX 
CTOCK Check 10 THIS LOOP? 


CPGN : 
PTOCNT(R3) ‘ECR TIME our CNT BY 


a 


-TIMED OUT? BOE) 
"INCR TO NXT “chia Rout TBL ENTRY 
“END OF THE T 


C Y N-CPGTTE 
SCAIDLE, (RS) **ALL IDLE’ FLAG SET? 


CPGNXT: 
G22714 177777 


EF coo 


MbuOO 
-_- 


enwreowvweoeew eo eo eee we 
pS 
DMO 400 
~~ 





NAINDEC- 11-DTNGA-C MPG / USER PROGRAM SHARED CODE MACYL1 27(732) 24-SEP-76 13:54 PAGE 48-1 
DTNGAC.P11 USER PROGRAM DISPATCHER 
T 
8701 1705 BEQ :Y N-CPGDSP 
£702 042715 002000 BIC SCUSPGR, (RS) “RESET "USER PROG RUNNING’ FLAG 
5703 000167 143516 IMP CFCMND :GO ASK FOR A CMND ENT 
8705 001 IF OF MM 
8705 IFF 
8707 ’ 082703 000124 CEXPRG: ROD #PSTKCT,R3 GET ADR OF STACK STORAGE CNT 
a CEXPRG: MOV R3, RO ;POINT AT USER’S PAR’S STORAGE 
8719 ADD sPUPARS, RO 
871! MOV SUPARO, Ri ;SET UP PAR & PDR REG’S ADR’S 
8712 MOV 8UPDRO, Re 
8713 MOV #8. RS SET UP REG CNT 
8714 123: MOV 16. (RO), (Re)+ :LOAD USER POR 
8715 MOV (RO)+, (RL)+ ‘LOAD USER PAR 
8716 DEC RS ; DONE ALL REGS? 
8717 BNE 128 :Y N-12$ 
8718 RDO #PSTKCT,R3 :GET ABR OF STK STORAGE CNT 
| 8719 000 .ENDC 
| 8720 034636’ 020627 001200 CMP SP, eSTACK 5 HE STACK POINTER CORRECT? 
8721 O34642" 001401 REQ is$ :#4% N, Y-15S 
8722 O34644" 000000 HALT ie 
8723 03464’ 012300 1S$: MOV (R3)+,RO “GET ® OF WORDS SAVED OFF OF THE STACK 
8724 O346S0’ 060300 ADD R3, RO :BOINT PAST LAST WORD 
| 872 001 IE DF MM 
| B75? oovese" gen300 20s: GMP —-R3, RO ;LORDED ALL WORDS ONTO STACK? 
Bee’ Beyone oa 308 (SP) NY PROG’ S WORD ONTO STACK 
| Bon hehe yp Be 20$ F DONE 
8731 034662" } 30 CLR = 
a a coccrr: Bro 
«ES Bee Fi i? Kaas 
_ Be Sere’ Obe70s oooo74 R00 ePOVREG 
| «BS Bog: test my 
| 8738 O3470e" 01 MOV ( 
8739 O34704’ 012503 MOV ( 
i 8740 034706’ 012504 MOV ( 
| 741 O34710° O1es46 MOV ( 
| §742 034712’ 011505 MOV ) 
| 8743 IFT 
| 744 MOV PC,RI 
| 8745 ADD sUSRSTK-. 
: 8746 MOV #USRSTK- 3° PRGBREPECONS, ania ;SET UP STK’S VIRTUAL ADR 


| 
| 
| 
| 


—_—- —~ 


MAINDEC-11-OTMNGA-C 
C.Pil 


DTNGAC 


PREECE EECE SERRE RARRR Entrants 


034714" 005767 177570 
034 


724° 004S77 177560 
000270 


* 062700 000306 


* 010067 177532 
0007 


MPG / USER PROGRAM SHARED CODE 
USER PROGRAM DISPATCHER 


20$: CMP 3 RO 
MOV i -(R1) 


MACYL1 27(732) 24-SEP-76 13:54 PAGE 48-2 


; LOADED ALL WORDS ON STK? 
: MOVE ONTO USER STK 


SUB #2, USERRE “UPDATE USER STK PNTR 
BR 20$ G0 CK I 
308: CLR =(RO) ‘CLEAR OLD STK CNT 
MOV (R4), (PC)+ “SAVE CURR PROG TBL ADR 
CPGCPT: .WORD ‘CURRENT PROG TABLE ADR 
MOV R3,RS ‘MOVE PROG TBL PNTR TO WK REG 
ADD ePSVREG-PSTKSV, RS “POINT AT SAVED REG’ 
MOV 10. (RS), -(R1) ‘PUT USER’S RS ON HIS STACK 
MOV (RS)+,RO “LOAD USER REGISTERS O - 4 
MOV (RS)+,R1 
MOV (R5)+;Re 
MOV (RS)+,R3 
MOV (R5)+,R4 
TST (RS)+ ;BYPASS ALREADY STORED RS 
MOV (RS), RS : USER’S PC INTO RS 
MOV SUSRPSW, -(SP) “LOAD USER MODE PSW ON STK 
MOV SUSMENT-PGGBA+PECONS,-(SP) ;PUT ENTRY POINT ADR ON STK 
RTI GO’ INTO USER MODE IN-LINE 
USMENT: MOV (PC)+,R6 :LOAD USER’S STK PNTR 
USERRG: - WORD 0 
TST TOEADR :IS THIS FOR T/0 ERR ROUT? 
BNE 40$ sN,Y-4 
RTS RS -GO TO USER’S PROG 
40S: JSR RS, JTOEADR :GO TO USER’S T/0 ERR ROUT 
JSR RS; CPGRSV :SAVE PROG’S INFO 
BR CKEX :G0 SET UP STANDARD ADRS 
ENDC 
CPGTOE: MOV R3,RO ;SET UP ADR OF T/0 ROUT ADR 
ADD #PTLGTH+DTOEAD, RO 
TST (RO) ; THIS DEV HAVE TIMEOUT ROUT? 
BEQ CPGNXT :Y N= T 
ROD a (RO), RO “MAKE ITS ADR ABS 
BIC #P4CONS, 80 ;ADJ ADR TO USER SPACE 
MOV RO, TOEADR ;STORE T/0 ERR ROUT ADR 
BR CEXPRG :GO TO USER PROG 


a a ee ee eer 








cll | teins MPG / USER PROGRAM SHARED CODE MACYL1 27(732) 24-SEP-76 13:54 PAGE 49 SEG 0187 
DTMGAC.P USER PROGRAN RETURN ROUTINES 








e731 .SBTTL USER PROGRAM RETURN ROUTINES 
¢ 
tes, 5 SRAAAREAALEAAAALLA LALA LAAALAA AA LARA AASAAL ARAL AALAARAAFRALAAARALERLAAEE 
8795 THE RETURN ROUTINES PROVIDE VARIOUS ENTRY POINTS WHICH WILL SUSPEND 
8795 : USER PROGRAM EXECUTION FOR EITHER ONE POLLING LOOP, UNTI’. AN 
8797 : 170 COMPLETES. OR INDEFINITELY. ALSO PROVIDED ARE END OF PROGRAM 
8798 : ND ERROR DETECTED ENTRY POINTS. THESE ENTRY POINTS ARE AS 
ter, ; FOLLOWS: 
8801 : CUPCR = USER PROGRAM CONTROL RELEASE 
e802 : CIOBSY = USER I/0 DEVICE IS ALREADY BUSY AT INITIATION 
8803 : CUPGEX = END OF USER PROGRAM 
8804 : CUPGER = THE USER PROGRAM'S DEVICE ROUTINE 
B80S : HAS DETECTED AN ERROR. 
sone : LEKEFHLAAHEAASKSAL ELE REAALEE AA RLSE EASA LAAAEREALASLAE RELEASE KALE LAL ERELESE 
8809 
8810 ;USER PROGRAM ERROR RETURN POINT 
8812 
13 760’ ? 0 CUPGER: JSR RS, CPGRSV ;SAVE_REG’S 8 SET UP ADR’S 
gata Sea 1 ewan BIS aERSTOP, (R3) :SET ERROR STOP FLAG 
| 815 770° 03e7b3 100000 oj0002 BIT #STONER, POPSW(R3? :STOP ON ERROR I 
8816 776’ O01 BNE C : 
8817 035000" 042713 ocoD0c4 BIC #ERSTOP, (R3) RESET ERROR STOP IN FLGWD 
B18 035004" 032763 001009 900002 BIT 8GTNXTD; POPSW(R3) 500 TO NEXT DEVICE ON ERROR? 
8819 O35012" 001467 BEQ CKEX N-CKEX 
| 820 035014" BR CKPDVP it SET UP FOR NEXT DEVICE 
8822 
| BB23 ;USER PROGRAM TERMINATION RETURN POINT 
| 8824 
1 8825 
| 882 035016’ o0¥s67 o00202 CUPGEX: JSR RS, CPGRSV ;SAVE REG’S AND SET UP ADR’S 
| 8827 035022" 032763 040000 co0002 BIT 8CYCPRG, POPSW(R3) sCYCLE PROG ON CURR DEV? 
Bee8 ° 001043 BNE CKC ?N. Y-CKCLRG 
B8e3 : i 000034 000017 CKPDVP: CMPB = PDPNTR(R3), #15. DEVICE # PNTR AT LAST DEV? 
| 8831 GsSDue* Neate 002000 00002 20s BIT #CYCDVL , POPSW(R3) CYCLE DEVICE LIST? 
| 832 * 001403 9 2 :Y,N-o 
Bax ’ 105063 000034 CLRB  POPNTR(R3) :SET DEV PNTR TO FIRST DEV 
¥ BR CKCLRG GO RESTART AT FIRST DEV 
| 8835 035060" ratte oo00002 225 BIT BAUTORP, ,POPSW(R3) i DISPLAY COUNTS AUTOMATICALLY? 
aap etait SOE o00402 ISR PC. CRPTEP ae ISSUE REPORT 
| §838 ’ 000001 ocoocoe 24$: BIT BNOCOMP , POPSW(R3) sPRINT Broa COMPLETED MSG? 
| 6839 102’ 001004 BNE N-28 
' BBY 104’ 7 o00s12 JSR RS, ULISTM  T8SUE PROG XX COMPLETED MSG 
| BBM 635110" bones WORD PGSOMP-. 
Bete Oeil | “WORD -9. 
BBY 114° 042713 100000 288: BIC sACTIVE, (R3) sRESET THIS PROG’S ACTIVE FLAG 
/  BB44 035120" 000424 BR CKEX G0 TO ROUT INE EXIT 
— -BBYS le2’ 105263 000034 30$:  INCB  PDPNTR(R3) INCR DEV 
 - BBYE =035126° 004767 000236 JSR PC, CPGCDN ‘POINT AT NEXT DEV # 





mm een eee eee ee ee ce 2 ee one er ne ee rege ere ee eeree 


MAINDEC-11-DTNGA-C 
DTNGAC.P 


——— 


00} 


000 
035214’ 005746 


03S216’ 004567 
* 000763 


000377 
000030 


177274 
177014 


77456 
177370 


000002 


MPG / USER PROGRAM SHARED CODE 
USER PROGRAM RETURN ROUTINES 


MACYL1 27(732) 


24-SEP-76 


13:54 PAGE 49-1 SEO 0188 


CMPB —s-#377, (Re) ;1S IT 4 DEV 4? 
BEQ 20$ ,N-20$ 
000002 CKCLRG: BIT 8f1JTORP+AURPEP , POPSH(R) a, ;D0 puto DISPLAY OF COUNTS? 
JSR cc, CRETEP :G0 ISSUE THE REPORT 
4O$: JSR PGCDN :POINT AT NEXT DEV 
MOVB CRBS PCURDV(R3) ‘STORE IT AS CURR oEV 
JSR RS, CPGHSK ‘GO DO PROG HOUSEKEEPING 
. WORD : HSKP CNTS PER OPSW FLAG 
12 OF MM 
MOV PCRS ;SET THE REMAP FLAG 
8R CKEX1 :GO SET UP ADRS 
CKEX: CLR RS ;RESET THE REMAP FLAG 
CKEXI: TRAP 2 ;60 INTO REBEL MODE IN-LINE 
UPGRET: ADD 84. SP RAP’S PSW & PC 
MOV CP&CPE, RY ‘GET CURR CNTRL ROUT TBL ADR 
MOV (R4), JAKPARY PAR 4 TO THIS USER 
MOV #P4CONS , R3 CET UP HIS VIRTUAL ADR 
TST “REMAP HIS PAR/PDR STORAGE 
BEQ SOs : 
ISR PC, MAPUPG ‘MAP PAR/PDR STORAGE 
SOS: Mov SET iPr SYSTEM FLGWO ADR 
ROD sCSYSFW-. RS 
CKEX: MOV CPGCPE, RY ;GET CURR CNTRL ROUT TBL ADR 
MOV C.RS ‘SET UP SYSTEM FLGWD ADR 
ROD sCSYSFW-. ,RS 
CLR CPGCPT ;CLEAR CURR PROG TBL ADR 
IMP CPGNXT ?GO CHECK NEXT PROG ENTRY 
;USER PROGRAM I/0 BUSY, CONTROL 
‘RELEASE, AND KILL RETURN POINTS 
.IF OF MM 
CKILEK: MOV #STACK, R6 ;RESTORE. KERNEL’S STK PNTR 
MOV sUSRPSW, -(SP) LOAD USER HODE PSU ON STK 
MOV SCKILEX:PGEBA+PECONS, -(SP) ;SET UP KILL ABORT ADR 
RIL : GO’ INTO USER MODE FOR THE KILL 
CKILEX: TST -(SP) :ADD A DUMMY WORD ON THE STACK 
CUPCR: 
CIOBSY: JSR RS, CPGRSV ;SAVE REG’S & SET UP ADR’S 
BR CKEX GO CHECK NXT PROG SLOT 


RERERLEELARELERA REAL EKA LARA RA REAL RAL A RARE RAE RAL AS 


# % 
. USER PROGRAM DISPATCHER & RETURN SUBROUTINES * 
eT TT TTT TT TTT TT TT TT TTTy 





MAINDEC-11-DTNGA-C__ MPG / USER PROGRAM SHARED CODE -MACYLI 27(732) 24-SEP-76 13:54 PAGE 49-2 SEO 0189 
DTMGAC.Pil USER PROGRAM RETURN ROUTINES ; . 


8903 
8304 
830 ;SAVE USER REGISTERS & STACK INFO 
8907 ;JSR RS, CPGRSV S/R CALL 
8309 035224" 910527 CPGRSV: MOV —s_ RS, (PC + ;SAVE RETURN ADR 
8910 035226’ 000000 CPSVRS: .WORD. 0 
ae a tee 
8313 035230’ 016705 177432 Hoy CPGCPT, RS ;GET CURRENT PROG TBL ADR 
8915 CLR sR ;GET VIRTUAL PROG TBL AOR 
8916 C00 -ENDC 
8917 035234’ 062705 000236 ADD #8PUSRPC RS ;POINT AT PC STORAGE AREA 
8918 035040" 012615 MOV (SP)+, (RS) SAVE PROG’S PC 
8919 035242’ 012645 MOV (SP)+)-(RS) :SAVE PROG’S RS 
8920 035244" 010445 MOV RY, -(RS) :SAVE RY THRU RO 
8921 03504" 010345 MOV —s-R3, = (RS) 
eee * 010245 MOV -( 
D35252" 010145 MOV —- RI, =( RS) 
8924 035254" 010045 MOV —s- RO; -( RS) 
| 925 035256" 010503 MOV ;PROG TBL PNTR TO R3 
| 8925 O35260" 162703 000222 SUB #PSVREG,R3 
8927 001 “TE OF Mi 
Bi3 035264’ 012700 001200 HOV STACK, RO ;SET UP STACK PNTR MAX VALUE 
831 —— HOV SUSRSTK-PGEBA+PECONS,RO ;SET UP STK PNTR MAX VALUE 
| gaze 000 -ENDC 
| 933 035270’ 160600 SUB Ss SPO ;GET # OF WORDS ON STACK 
8934 035272’ 100015 BPL 70 Stack ADR SCREWED UP? (Y,N-70S) 
8935 035274’ Ole767 onde12 00012 MOV # INVSTK-60S, 60S : STORE INV STK_ERR MSG ADR 
| 8936 035302’ 010645 SOS: MOV SP,-(RS) SAVE BAD STK 
| 8937 001 +E DF MM 
| base 035304" 012706 001200 MOV STACK, R6 sREINITIALIZE STK PNTR 
| e940 IFT 
| Peal a Ov SUSRSTK-PGBA+PECONS,R6& ;REINITIALIZE STK PNTR 
| 8943 035310" 004567 000306 JSR —s- RS, ULISTM ;ISSUE “INV STK ADR” ERROR MSG OR 
| 944 035314 000000 60S:  .WORD XXX : 
| B945 035316" 177760 -WORD -16. 
| 894% 035320" 042713 100000 BIC ACTIVE, (R3) ;RESET THIS PROG’S ACTIVE FLAG 
B37 B353e4 , eR C G0 CK FOR ANOTHER USER PROG 
| BSB ° 000074 70$: CMP _— RO, SPSVREG-PSTKSV TOO MANY WORDS ON STACK? 
| ‘Bas + O12767 HOV iLiae 
| 8950 * 012767 000232 177752 MOV § s#STKBIG-605, 60S ;STORE STK TOO BIG ERR MSG ADR 
| Bee + Tee76s 000076 gos: 508 PSVREG-PSTKCT, RS IBOINT TO. STACK CHT: STORAGE 
| 8365 Goesso" O100ee ROY RO, CRS STORE STACK COUNT 
| 8954 035352" 162700 00002 90S: SUB #2.RO sDECR STACK 
| 8955 O35I56" 100402 BMI at ALL WORDS OFF Srack? (N, Y-100$) 
| B95 ’ 012625 MOV (SP), (RS)+ STORE WORD OFF 
| 957 035362" 000773 ge 90S :GO DECR CNT 
e958 001 LIF OF MM 
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8959 
8960 
8961 
8962 


SESS PS ciePeRECRVESCCLC TLL Re RERERESR OT Ga dad, 


Besee 
fwre-O 


035364" 016707 


Coo 


035370" 116302 
035374’ O&0302 


f 
a 
ot 


702 
035402" 000207 


_ 
Ne 


§ 
ase 


a 


e 


ees 


82 
a8 


177636 


oo0034 
000036 


OOO0SE 
000070 
000004 
000011 


000020 
000010 


o000Ce 


MPG / USEF PROGRAM SHARED CODE 
USER PROGRAM RETURN ROUTINES 


100$: MOV 
100$: MOV 


1105: MOV 


;GET ADR IN Re OF UNIT & POINTED TO BY “POPNTR” 


:JSR _ PC, CPGCDN 
:R3 conTalis PROG TBL ADR 


CPGCON: 


;HOUSEKEEP PROG TBL & OPTIONALLY THE DEV ROUT 
RS , CPGHSK 


CPGHSK: MOV 


108: CLR 


20s: CLR 


30S: 


MACYL1 27(732) 


CPSVRS, PC 


110% 
CPSVRS,PC 


: DEST 
POPNTR(RS) ,Re 
#PDNUMS, R2 

PC 


; JSR 
;-WORD 0 oR 1 


:R3_ CONTAINS oe TEL ADR 


‘DESTROYS RO,R1,R 
- PROG TBL ADR TO WK REG 

RS tENO “POINT AT TMOO WORD 

BPUSRPCPTENO/2, Rl GET # OF WORDS | TO CLEAR 
“CLEAR TMP G 


RL 


10$ 
POBJST(R3), (RO)+ SET 
aPTSIZE-PUSRPC+DEVFUD, RO’ :POINT AT DEV ROUT 
#DEVDRA-DEVFWD/2,R 


(RO)+ 
Ri 


20s 
(RS)+,35$ 


sOHKPAD-DEVORA, RO 


408 
POPSUCRS) , RE 
RS, (RO) 


24-SEP-76 13:54 PAGE 49-3 


SEG 0190 


;EXIT TO IN-LINE AOR 
;GET ADR OF PAR STORAGE 
;GET ADRS OF al MODE 


;Y,N-11 
“RETURN IN-LINE 


S/R CALL 


;GET DEV PNTR 
:SET UP DEV # ADR 


;EXIT 


S/R CAL 
: = Bo” bev ROUT HSKP PER OPSW 
= UNCOND. DO DEV ROUT HSKP 


8 
: STORAGE FoR” THis’ PROG 
PROG’S PC TO OBy CODE START 


GET # OF DEV ROUT WS” TO CLEAR 
*CL TEAR DEV ROUT FLAGWORD & 
‘INTERFACE WORDS 

;STORE HOUSEKEEP FLAGND 

:POINT AT DEV ROUT HSKP ROUT ADR 
1§ THERE A HSKP ROUT? 

re 

SET UP PROG’S OPSW 

:GO TO DEVICE’S HSKP ROUT 





* 


NRINDEC-11-DTNGA-C MPG / USER PROGRAM SHARED CODE 
DTMGAC.Pil USER PROGRAM RETURN ROUTINES 


9015 o3s47e’ 000000 

9016 035474" 000205 

9017 

9018 

9019 

9020 

9021 

9022 

9023 

3024 

9025 

2026 035476’ neh oco001 
tea Gssse' Oee700 000300 
$029 03551e’ 005710 

$030 035514’ 001403 

9031 035516’ 061000 

3032 ” 004510 

3034 paeeoq 000207 

3035 

3036 

3037 ’ O4e4S2 OeSlee 
9038 035546’ O4e4Se Oedlee 
9039 035566’ 047503 OS0115 


ra 
8 2 
ao 
8 


300916 


oun 
051440 
042514 


;GO TO DEVICE ROUTINE REPORT ROUTINE 


3s$: . WORD 
40S: RTS 
CRPTEP: MOV 
CGORPT: MOV 
ADD 
TST 
BEQ 
ADD 
JSR 
CRPFLG: .WORD 
CGOREX: RTS 
-NLIST 
INVSTK: .ASCII 
STKBIG: .ASCII 
PGCOMP: .ASCII 
LIST 
EVEN 
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XXXX 
RS 


ee PC, aa 
” CRPTEP 


Nee FLAGWO 
;EXIT IN-LINE 





REPORT CMND S/R C 
END OF USER PROG pags S/R CALL 


:R3 cowtal PROG TBL ADR 


DESTROYS 
#1, CRPFLG 
Bet EraeoeRP, RO 


BEX 
/*ER# INV STK ADR/ 


7*ER® STK TOO BIG/ 


/COMPLETED/ 
BEX 


- 


;SET UP_END OF PASS FLGWD 
;POINT TO ADR OF REPORT ROUT 


ss THERE A ROUT ADR? 
Le ae 


ioe op S AOR OF REPORT ROUT 
G0 10 roe sROuT ERROR REPORT S/R 


;EXIT IN-LINE 


MAINDEC-11-DTMGA-C_ MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE SO SEO 0:32 
DTMGAC.Pil FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 


2043 .SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
aoy8 ; PROGRAM TABLE FORMAT 
g047 001 IF OF MM 
3049 go00242 PTLGTH= ite, :PROGRAM TABLE LENGTH 
ape Bet PTLGTH= 212. ; PROGRAM TABLE LENGTH (MEM MGMNT VERSION) 
2052 000 ENDC 
3054 poo000 PFLGWD= +0. sPROGRAM FLAG WORD - 1 WORD 
3056 oooroe URSTOP= 2 ; 1 = USER HAS STOPPED THIS PROGRAM 
9057 000004 ERSTOP= 4 : 1 = AN ERROR HAS STOPPED THIS PROGRAM 
3058 000010 WT4IOT= 10 : | = WAITING FOR 170 TERMINATION 
9059 000020 CTPRIO= 20 : 1 = CONSOLE OR PRINTER 1/0 IN PROGRESS 
3060 000040 SETDED= 40 : | = THIS PROG SET THE PRT DEV DEDICATED FLAG 
3061 000100 OCPRES= 100 : | = OBJ CODE IS PRESENT 
S062 001 IF OF MM 
3063 - USEUBM= 200 ; 1 = THIS PROG USES THE UNIBUS MAP 
S065 100000 ACTIVE= 100000 ; 1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION) 
ape ee oooo02 POPSW= +2. ;PROGRAM’S OPERATION SWITCHES - 1 WORD 
ape 2 100000 STONER= 100000 ; 1 = STOP PROG EXECUTION UPON ERROR 
3070 o4yoo0e CYCPRG= 40000 ; 1 = CYCLE PROGRAN (ON CURRENT DEVICE) 
3071 020000 PRONER= 20000 : 1 = DO NOT PRINT ON ERROR 
3072 010000 BITl2= 10000 ; 0 = NOT USED 
9073 004000 BITIi=z 4000 ; 0 = NOT 
8074 ; CYCDVL= : 1 = CYCLE HE DEV DEVICE L 
$075 001000 GTNXTD= 1000 : 1 = = CYCLE ON SANE sevice. UPON ERROR 
3598 SPOPER= ao DEVICE SPECIAL OPERATION 
| 9078 000100 BITb= 1 : 0 = NOT USED 
9079 000040 DOIOT= 40 : | = DO NOT PERFORM 1/0 TIMEOUT 
| 9080 AUTORP= : 1 = DO NOT AUTOMATICALLY DISPLAY COUNTS 
9081 000010 = 10 : J = AUTO DISPLAY COUNTS AT END OF FINAL PASS ONLY 
| 3082 900004 PEP= 4 | = HOUSEKEEP COUNTS ONLY AT RUN COMMAND 
3083 poo0002 PFBBOV= 2 : | = PRINT FIRST BAD BYTE ONLY ON VERIFY 
| 9084 o00001 =] : 1 = DO NOT PRINT PROG COMPLETED MSG 
| 9086 oo0004 PFWADR= +4. ;#;PROGRAM FLAGWORD ADDRESS - 1 WORD 
3088 o00006 PASCIN= +6. ;PROGRAM’S NUMBER IN ASCII - 1 WORD 
| 50 : 000010 PNAMES +8. ;PROGRAM’S NAME IN ASCII - 6 BYTES 
2032 000016 PRDIOA= +14.  ; ADDRESS OF READ 1/0 AREA - 1 WORD 
3094 oo0020 PWRIOA= +16. | ;ADDRESS OF WRITE 1/0 AREA - 1 WORD 
| 2096 poo02z2 PSRCST= +18. | ;SOURCE STATEMENTS START ADDRESS - 1 WORD 
| 9098 ooo024 POBJST= +20.  ;OBJECT CODE START ADDRESS - 1 WORD 








MAINDEC-11-DTMGA 
DTMGAC.P11 


3 


BRE 


WWWUNOWDWODOWWOWW 0OWWWWDWWWWWW 
Db b= pan bo bo bo Bs fas pe bn pe Bo hb a he Fe he 


BEURREOREBSBURRPOVE Seon con OBBVRR EL 


WOwWwO OWDWWOWOWWWWOWWwWW 
02 02 pe ps poe 


Poe be pan be Be be he pe pe he 


PLNGTH= 
PTOCNT= 
PMDLCD= 
POPNTR= 
PCURDV= 
PDNUMS= 
PTEMO= 
PTEMI= 
PTEMe= 
PTEM3= 
PTEM4= 
PTEMS= 
PTEM6= 
PTEM7= 
PTEMB= 
PTEMS= 
PTEM10= 
PTEM11= 
PTEM12= 
PTEM13= 
PTEM14= 
PTEM1S= 
PNBR= 
PSRC= 
PDST= 
PSTKCT= 
PSTKSV= 
PSVREG= 


MPG / USER PROGRAM SHARED CODE 
FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
+22. 
+24. 
+26. 
+28. 
+29. 
+30. 
+46. 
+48. 
+50. 
+52. 
+54. 
+56. 
+58. 
+60. 
+62. 
+64. 
+66. 
+68. 
+70. 
+72. 
+74, 
+76. 
+78. 
+80. 
+82. 
+84. 
+86. 
+146. 


MACYL1 27(732) 
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;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
;1/0 TIMEOUT COUNT - 1 WORD 

;DEV ROUT MODEL # CODE - 1 WORD 
;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
;CURRENT DEVICE # - 1 BYTE 
;DEVICE NUMBERS - 16 BYTES 

;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;USER PROGRAM TEMPORARY STORAGE - 
;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 

;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 

;# OF WORDS (X 2) SAVED OFF STACK - 1 WORD 

;STACK WORDS STORAGE AREA - 30 WORDS 

;USER’S RO THRU RS REGISTERS STORAGE AREA - 6 WORDS 


WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


WORD 


WORD 
WORD 


1 WORD 





| 
| 
} 
| 
| 
| 
| 
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DTMGAC.Pil FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
18g 000236 PUSRPC= +158. ;USER'S CURRENT PROGRAM COUNTER - 1 WORD 

3188 001 -IF_DF MM 

3160 o00240 PTSIZE= +160. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD 

site 000242 PTEND= +186 ;END OF PROGRAM TABLE 

9164 PROIOX= +160.  ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS 

aie PROIOV= +164. ;18 BIT VIRTUAL ADDRESS OF READ I/0 AREA - 2 WORDS 

9168 PWRIOX= +168.  ;18/22 BIT ABSOLUTE ADDRESS OF WRITE I/0 AREA - 2 WORDS 

3176 PWRIOV= +172.  ;18 BIT VIRTUAL ADDRESS OF WRITE 1/0 AREA - 2 WORDS 

ais PUPARS= +176. ;STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS 

aif PUPDRS= +192. ;STORAGE AREA FOR USER’S PDR’S O THRU 7 - 8 WORDS 

a3 PUBMAP= +208. ;1ST UNIBUS MAP REG # AND # OF REGS USED - 1 WORD 

a PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD (MEM MGMNT VERSION) 

3180 PTEND= +212. ;END OF PROGRAM TABLE (MEM MGMNT VERSION) 

9181 coo - ENDC 


DTNGAC.P11 FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
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9183 DEVICE ROUTINE TABLE ) 
9164 
aise 00011€ ORTLTH= 78.  ; DEVICE ROUTINE TABLE LENGTH 
sigs 900000 BEVRSZ= +0.  ;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
9191 ooooce DEVFWD= +2. ; DEVICE ROUTINE FLAGWORD - 1 WORD 
ai33 o00004 DEVIWI= +4. ;DEVICE INTERFACE WORD # 1 - 1 WORD 
$135 p00006 DEVIW2= +6.  ;DEVICE INTERFACE WORD # 2 - 1 WORD 
$137 000010 DEVIW3= +8. DEVICE INTERFACE WORD # 3 - 1 WORD 
9199 o00012 DEVIW4= +10.  ;DEVICE INTERFACE WORD # 4 - 1 WORD 
$201 000014 DEVIWS= +12.  ;DEVICE INTERFACE WORD # S - 1 WORD 
3203 000016 DEVIWo= +14.  ;DEVICE INTERFACE WORD # 6 - 1 WORD 
205 poo020 DEVIW7= +16.  ;DEVICE INTERFACE WORD #7 - 1 WORD (SIZE) 
$207 ooo0z2 DEVIWB= +18.  ;DEVICE INTERFACE WORD # 8 - 1 WORD (ERR) 

3203 ooo024 DEVDRA= +20.  ;DEVICE REGISTERS ADDRESS - 1 WORD 
<1 p00026 DEVIVA= +22.  ;DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 
9213 000030 DEVRPS= +24.  ;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
$215 o00032 DEVWPS= +26.  ;DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
9217 000034 DHKPAD= +28.  ;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
18 000036 DERPAD= +30. DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
9221 000040 DKILAD= +32.  ;DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
e223 noo42 DECTAD= +34.  ;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 
| 9225 p00044 DTOEAD= +36.  ;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
| Se 000046 DEVIOB= +38.  ;DEVICE 1/0 BUSY BRANCH ADDRESS (CIOBSY) - 1 WORD 
| 9229 oo00s0 DEVDER= +40.  ;DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD 
| By poo0se DVUPRT= +42.  ;USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 
| 9233 o000s4 DVCPRT= +44.  ;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
| Bs 000056 DEVETA= +46.  ; CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
| $237 co0060 DVBTDA= +48.  ;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 
| 





FORMATS FOR OfSarr & DEVICE ROUTINE TABLES 


9239 0002 DOWPOTA= +50. ;CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 
an 0'J0064 DVSFWD= +Se. :MPG SYSTEM FLAGWORD ADDRESS (CSYSFW) - 1 WORD 

asua OCO0&6 DVSVEC= +54. ;SET INTERRUPT VECTOR BR ADR (SETYEC) - 1 WORD 

9245 900070 DVCVEC= +56. ;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 

3547 oc007e OVTVEC= +58. ; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 

a3 ooco74 DVRINT= +60. ;RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 

esos 000076 DVGETB= +62. ;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 

esas 000100 DVPUTB= +64. ;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

ase 000102 DEVSTP= +66. ;DEVICE ROUT REL SYMBOL TABIE POINTER - 1 WORD 

ase, 000104 DEVETP= +68. ;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 

asep 000106 DVPTEP= +70. ;PACK TABLE EXTEN. REL POINTER - 1 WORD 

aces 000110 DVVTEP= +72. ;VECTOR TABLE EXTEN. REL POINTER - 1 WORD 

ases 000112 DVCTEP= +74. ;COMPILER TBL EXTEN. REL POINTER - 1 WORD 

asee 000114 DVIWSP= +76. ;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
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9267 000116 DRTEND= +78. ;END OF DEVICE ROUTINE TABLE 

| 

| 


j 


— 


| ood 


oe 


cs 
o1 


z 


Maratea 
ALIS 


wai 


is 


SERRE SERER aR SaNsuR Mom GROIER 


ee on ot a 


(Sttototototatstots 
WO VOU SW 


B16 
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i! LIS? CONTROL ROUTINES 
.SBTTL LIST CONTROL ROUTINES 
s PARERAFSASSLALEFAAERALLALEAALERASELASHSALASALARLALLARSF+LAF LAE 
: THIS ROUTINE DETERMINES IF A LIST DEVICE HAS BEEN ASSIGNED 
: fND THEN BRANCHES TO EITHER THE CONSOLE TERMINAL ROUTINE 
: OR TO THE PRINTER ROUTINE. 
: LINKAGE: JSR RS. CLIST MPG LIST 
: WORD Tae REL ADR OF 1/0 
: WORD # OF CHARS TO TRCHCFER 
> EXITS TO EITHER: CTWR OR CPRT 





035600" 016700 i42210 CLIST: MOV CLISTI,RO ;GET_ ADR OF LIST DEV 

035604" 900004 TST 4(RO) i1S THERE AN ALT LIST DEV? 
035610" 001 BNE 10$ 3N,¥-10$ 

035612" 900177 i42222 IMP aCTWR £06 10 QO MPG’S CONS TERM WRITE 
035616" 000177 i42176 10$: JMP aCPRT :GO 19 MPG’S PRINT 


;USER LIST S/R FOR DEVICE ROUTINES 





;JSR «RS, ULIST S/R CALL 
; ADR ABS DATA ADR 
: CNT BYTE COUNT 
035622" 004567 002770 ULISTM: JSR RS, LTSTDE :GO TEST DEDICATED FLAGS 
035626" 010567 000040 MOV RS, UPRADA “GET REL MSG ADR & MAKE 
025632" 062567 000034 ADD (RS)+, UPRADR :I 
035636’ OO0404 BR ULST :GO TO COMMON POINT 
’ 7 ULIST: JSR RS, LTSTDE :GO TEST DEDICATED FLAGS 
haat 1 prose MOV (R5)+. UPRADR -GET ABS DATA 
B50’ 011567 O0000c0 ULSTCM: MOV (RS), UPRBYC :GET BYTE COUNT 
Boy’ BMI 10$ :CNT NEG? (N, Y-10S) 
035656’ 000012 NEG UPRBYC "NEGATE THE COUNT 
* 105067 O02C0S 10S:  CLRB  LPRRDE “RESET REALLY DEDICA 
’ 7 002134 ISR RS, UPRASC ‘ISSUE MSG USING PRINT ascti ROUT 
035572" UPRADR: .WORD XxX 
Oxeb74 UPRBYC: .WORD  XXXX 
76’ TST (RS) ;WAS SUPPLIED BYTE CNT NEG? 
035700’ 1 BMI 20$ ‘NL Y= 
taeroe. powee” 002404 JSR RS ,UPCRLF i LRSUE (CR? & <LFD 
035710’ 105067 001757 20S: CLRE L "RESET REALLY DEDICATED FLAG 
035714" 004567 002364 JSR RS, ULCRLF ‘ISSUE <CR> & <LF> FOR LAST MSG 
025720" 000205 30$: RTS “EXIT TO USER PROG 


ee eee ene ea - ee 
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DTMGAC.P1l SUBROUTINES USED BY USER PROGRAM STATEMENTS 
3322 .SBTTL SUBROUTINES USED BY USER PROGRAM STATEMENTS 
9323 : 
3324 : ADD MULTIPLE SUBROUTINE 
9326 012500 LADOM: MOV (RS)+,RO :GET COUNT 
9327 912501 MOV (R5)+/R1 :FIRST VARIABLE POINTER 
9328 012502 MOV (RS)+;Re ; SECOND VARIABLE POINTER 
9329 060001 ADD /R1 : POINTERS 
9330 060002 ADD RO‘ Re :TO LSB 
9331 005067 oo00sé CLR LCARRY CLEAR SOF TWARE 
8332 000241 CLC AND HARDWARE CARRY BITS 
$333 162701 oo0002 SUB #2,R1 
9334 162702 000002 Sug 82. Re 
9335 111} LADOML: MOVB = (RL) RB :GET 
$336 111 MOVB = (R2)|R4 ‘OPERANDS (ONE BYTE) 
9337 066704 000034 ADD LCARRY, RY :AND PREVIOUS CARRY 
9338 BCC LADDCC IF NO CARRY CLEAR SOFT CARRY 
9339 BR LADD 
9340 005067 000024 LADDCC: CLR LCARRY 
9341 060304 ADD: ADD R3, RY ; ADD THO OPERANDS 
oats 005567 O00016 ADC LCARRY ‘ADD ANY CARRY TO SOFT CARRY 
110412 MOVE RY, (Re) ‘PUT BACK RESULT OPERAND 
S344 005300 DEC RO 
9345 001403 BEQ LADDEX sEXIT WHEN DONE 
3346 004567 000102 JSR RS, BUMP :GET NEXT MSB LIKE REAL COMPUTER 
9347 000757 BR LADDML 
9348 p00205 LADDEX: RTS : RETURN 
9349 000000 LCARRY: .WORD 0 
9351 : SUBTRACT MULTIPLE SUBROUTINE 
ae 012500 {SUBM: MOV (RS)+,RO :GET COUNT 
9354 012501 MOV (RS)4/R1 :FIRST VARIABLE POINTER 
| $355 12502 MOV (RS)+, *SECOND VARIABLE POINTER 
a5 36026’ ADD RO,R1 ; POINTERS 
| x6 ADD RO, Re -TO LSB 
| 9368 0506 177760 CLR LOARRY OPER SOFTWARE 
| 9959 1 CLC “AND HARDWARE CARRIES 
| §360 O36040° 162701 ooc002 SUB 82,R1 
9361 162702 000002 SUB #2. Re 
a3¢ 111103 LSUBML : (RL), RS ;GET 
111 nove (R2)'RY ‘OPERANDS (ONE BYTE) 
| 9364 166704 177736 SUB —-LCARRY, R4 ;SUBTRACT PREVIOUS CARR 
| §365 493001 BCC LSUBCC ‘IF NO CARRY CLEAR SOFT. CARRY 
| $366 BR LSUB 
| $367 ? 177726 LSUBCC: CLR LCARRY 
| 9368 an LSUB: R3, RY ;SUBTRACT TWO OPERANDS 
| 9369 7 177720 LCARRY +RE R CARRY 
| §3790 10412 MOVB RY, (Re) “PUT BACK RESULT OPERAND 
| 371 DEC RO 
| 9372 001403 BEQ LSUBEX sEXIT WHEN DONE 
| §373 004S67 o00004 JSR RS, BUMP GET NEXT MSB LIKE REAL COMPUTER 
| 9374 000757 ee LSUBML 
| 9375 000205 LSUBEX: RTS RS : RETURN 
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SUBROUTINES USED BY USER PROGRAM STATEMENTS 


Eee 


is 


Waele 


S 
S 


sea! 


000001 
00003 


000001 
000003 


000001 


000001 
003070 
003174 


000001 


003046 
rad 


24-SEP-76 


13:54 PAGE Se-1 


BUMP RO AND R1 TO NEXT MSB SUBROUTINE 


BuMP: BIT #1,Re 
we! 
SR LBUMP2 
LBUMP1: INC Re 
LBUMP2: BIT #1,R1 
BEQ LBUMP3 
SUB #3,R1 
BR LBUMP4 
LBUMP3: INC Ri 
LBUMP4: RTS RS 
: FILL WITH VARIABLE SUBROUTINE 
LFILV: MOV (RS)+,R4 
MOV (R5)+;Ro 
MOV (RS)+/Re 
LFVOET: BIT #1,R4 
BEQ LFYCBC 
LFVODD: MOVB = Re, (R4)+ 
DEC 3 
BEQ LFVEXT 
LFVCBC: CMP $1,R3 
BEO FYODD 
LFVEVN: MOV R2, (R4)+ 
SUB 2° R3 
BEQ LFVEXT 
BR LFVCBC 
LFVEXT: RTS S 
: FILL WITH RANDOM SUBROUTINE 
{FILR: MOV (RS)+,R4 
LFROET Br ie 
BEQ . LFRCBC 
LFRODD: JSR RS, LRANDM 
MOVB —_ LHI NUM, (R4)+ 
DEC R3 
BEQ LFREXT 
LFRCBC: CMP a1,R3 
BEQ LF 
LFREVN: JSR RS, LRANDM 
MOV LHINUM, (R4)+ 
SUB 2, R3 
BEQ LFREXT 
BR LFRCBC 
LFREXT: RTS RS 
: FILL WITH ASCII SUBROUTINE 
{FILG: MOV (RS)+,R4 
MOV (R5)+'R3 





IF BIT O RESET 
GQ B00 ONE 
OTHERWISE SUBTRACT 3 


IF BIT O RESET 
GO ADD ONE 
OTHERWISE SUBTRACT 3 


RETURN 


:GET ADDRESS 
;AND BYTE COUNT 


CNT 


i ae NIE 
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1 SUBROUTINES USED BY USER PROGRAM STATEMENTS 

9433 036300’ 112702 009040 LFGLP1: MUVB  #40.Re s INITIALIZE ASCII CHAR 
ai3t 036304" 1 LFGLPe: OVE Re, (R4)+ “MOVE THE CHAR 
o4 , DEC R3 “CECREMENT BYTE COUNT 
9436 036310’ 001405 LFGEXT ‘EXIT IF ZERO 
ot37 Ssbeie, | INCB = Re “CREATE NEXT CHAR 
94 i’ 1 000140 CMPB sa 140, R2 ‘LAST CHAR OF SET 
439 036320" 71 BNE LFGLPe2 “NO-GO MOVE IT 

, BR LFGLPI -YES-GO INITIALIZE IT 
Ean 036324’ o00205 LFGEXT: RTS RS * RETURN 
9443 : FILL WITH PATTERN SUBROUTINE 
S445 036326’ 012504 {FILP: MOV (RS)+,R4 GET ADDRESS AND 
9446 036330’ 012503 MOV (R5)+,R3 “BYTE COUNT 
9447 036332’ 012501 MOV (RS)+-R} 
9448 036334’ 010702 MOV sDETERMINE PATTERN 
9449 036336’ 061102 LPBASE: ADD (RIL) Re ‘GENERATION ROUTINE 
gino 036340" 010207 MOV Re, PC : THEN GO THERE 
9452 036342’ 012700 000020 LPATO: MOV #16. ,RO ;WALKING ONES 
9453 036346’ Ole7De 100000 MOV #100090, Re 
S454 Gs 35e 767 000132 108: JSR PC, STRPAT 
9455 ’ TST R 
9456 036360’ 001452 Q FILPEX 
9457 036362’ 000241 CLC 
9458 036364’ 006002 OR R2 
9459 ’ DEC RO 
9460 ’ 10$ 
BGi , BR LPATO 
9462 036374’ 012700 o00020 LPAT1: MOV #16. ;WALKING ZEROES 
9463 036400’ Ol2e702 077777 MOV #77777. Re 
ca Pee 004767 000100 10S: ISR PC, STRPAT 
S46S 10’ 005703 TST R3 
S466 036412’ 001435 BEG FILPEX 
9467 036414" 000261 SEC 
9468 036416’ 006002 ROR R2 
9469 036420’ 005300 DEC RO 
9470 O3642e’ 001370 BNE 10$ 
9471 36424" 000763 BF LPATI 
9472 Obie" o1 NN0020 LPAT2: MOV $16. RO sEXPANDING ONES 
S473 036432" Ole702 100000 MOV #100000, Re 
9474 036436’ ooN767 000046 10$: JSR PC, STRPAT 
9475 O3644e’ TST R3 
S476 036444" 001420 BEQ FILPEX 
au7e Gaess6° 002300 pee CO 
GH74 ’ 1 10$ 
Sued OSeNeN QOdeGH Br dpa 
9481 036456’ 012700 000020 LPAT3: MOV #16. RO sEXPANDING ZEROES 
pa BSEuee’ oe 05 or00 16 10$ mee + 77 4Re 
9484 hethcd ead TST R32 
S4es eae 1 BEQ FILPEX 
46 , ASR Re 
9487 meet 005300 DEC RO 
9488 036502’ 001371 BNE 10S 


Teer a 


i 

9489 
| 

| 

| 

| 

| 

| 


mncanenNNs Tres tsts3 
Oe 


ARR ARR RRR 
WO NWUI.£ WHO 


aseannnaenannannnannnnnan 


g = 
2 


i 


pee 


Aya 
Ge 


ee 


ate) 
oe 


BERR 
SeneRs 


036720" 


MPG / USER PROGRAM SHARED CODE 


MACYL1 27(732) 


SUBROUTINES USED BY USER PROGRAM STATEMENTS 


000764 


ee 


e 


a 


ae 


Oo 

oO 

— 
ss 
oO 


e 
2 


165555 


STPTEX: 


LPAT4: 
LPATS: 
LPAT6: 
LPAT?: 
LPATB: 
LPATS: 


LPATA: 
108: 


LPAT3 

RS 

Re, (R4)+ 
STPTEX 

yeast 
R3 

Pe 
#1252S2,R0 
#lebese, »R1 


#052525 , RO 
#052525 Rl 


10§ 
#165S555,R0 
#133333,R1 
PC, PATGEN 
RS 

RO,R2 

Re, (R4)+ 
R3 

PGENEX 

oa Oe 
PGENEX 
R1,Re 

pe, One 
PGENEX 

Re 





24-SEP-76 13:54 PACE S2-3 SEQ 0201 


;ALTERNATE ONES (HORIZ) 
;ALTERNATE ZEROES (HORIZ) 
;ALTERNATE ONES (VERT) 
;ALTERNATE ZEROES (VERT) 
;OCTAL CHECKERBOARD 
;BINARY CHECKERBOARD 
; START pls WORD OF ZEROES 
‘STORE A BYTE 
;EXIT IF DONE 
$SWA BYTES WITHIN Re 
:SWAP BYTES WITHIN Re 
sEXIT IF DONE 

Re 


;GET ay FROM RO 
;STORE A BYTE 


;EXIT IF DONE 
;SWAP BYTES WITHIN Re 
; STORE A BYTE 


sYES = "exer 
;GET WORD FROM RI 
: STORE of BYTE 
;DONE * 
YES - EXIT 
;SWAP BYTES WITHIN Re 





a ee ee ee ea en ce ee ee ie ee ee er er er ee ES RS SNES EE NS SEN 





lay a ~ | Henne MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE S2-4 SES 9202 
DTMGAC.Pil SUBROUTINES USED BY USER PROGRAM STATEMENTS 


367 24 MVE «RE, (RY)+ :STORE,A BYTE 
dey, Bae754° R 8 


3 DE 
9547 036726’ 001360 BNE PATGEN NO. - CET NEXT WORD 
es 036730’ 000207 PGENEX: RTS PC ‘EXIT 
351 ROTATE STRING SUBROUTINE 
, [ROTR: MOV (RS)+,R4 GET STRING ADDRESS 
deeq faces, BiSen: MOY tReDa° BS eet B BYTES 10 BE SPUN 
9555 036736’ 010402 MOV RY, Re’ 
2558 O36 740; DEC R3 
742" ADD R3,Re :SET UP RIGHT POINTER 
9558 036744’ 010201 MOV Re: RI :SET UP LEFT POINTER 
3959 Care Hove (Re) ,RO SAVE RIGHT HAND BYTE 
9561 036752’ 114142 LROTRL: MOVB -(R1),-(R2) ;MOVE OTHER BYTES RIGHT 1 
9562 036754’ 020204 CMP Re. RY . 
9553 036756’ 001375 BNE LROTRL ; 
9564 036760" 110012 MOVB RO, (Re) ;MOVE SAVED BYTE IN ON LEFT 
9565 036762’ 000205 RTS RS : RETURN 
oops : DELAY SUBROUTINE 
’ 01 CDLAY: MOV (RS)+,RO GET D N MIL ISECONDS 
3253 heaaee esa oo0se22 ntae MOV se22 Ai ‘LOAD EENST T ORT 
9571 036772’ 005301 LDLLP2: DEC 1 
9572 036774’ 001376 BNE LOLLPe sDELAY 1 MILLISECOND 
9573 936776’ 005300 DEC RO 
9574 037000’ 001372 BNE LOLLP1 ;REPEAT AS PER COUNT 
9575 037002’ 000205 RTS RS : RETURN 
a7 ? ; VERIFY SUBROUTINE 
9579 037004’ 012500 CVERFY: MOV (RS)+,RO GET BYTE COUNT 
3280 037006 O1 MOV (RS)+,R1 GET 1ST DATA ADR 
1 10’ O1 MOV (R5)+'Re -GET 2ND DATA ADR 
9582 037012’ OO0SO04 CLR RY “INITIALIZE BYTE # 
9583 027014’ 004767 oD002S4 ISR PC, LVECMP :DO DATA C 
9584 037020’ 000401 BR 10$ *MISCOMPARE? (N, Y-10$) 
9585 037022’ 500205 RTS RS *EXIT IN-LINE To. USER PROG 
ee VERIFY MISCOMPARE 
9589 001 IF OF MM 
9530 FF 
23 037024’ 016703 175636 10S: HOV CPGCPT,R3 :GET ADR OF PROG’S TABLE 
gs 10$: CLR R3 ;GET ADR OF PROG’S TABLE 
9594 000 . ENDC 
037030’ 010301 MOV sPOINT AT ADR OF 
9596 O37 032" 062701 000304 ADD sPtLerHspectan RI “DATA ERROR CNTR 
9597 ’ 012761 000001 17776f MOV 1, DEVIW8-DECTAD(R1) | SET THE ERROR INDICATOR 
96598 037044’ 005711 TST tal) iS THERE AN ERROR CNTR? 
9599 037046’ 001402 BEQ Shs N-20$ 
9600 037050’ 061101 ADD (R1),R1 MAKE ITS ADR ABSOLUTE 


MPG / USER PROGRAM SHARED CODE 


MACYL1 27(732) 


SUBROUTINES USED BY USER PROGRAM STATEMENTS 


NAINDEC- 11-DTNGA-¢ 

DTMGAC.P11 
901 037052’ 005211 
gene 37059" Gse7b3 
9604 Moot 562708 
soos Dasc7o" 
9606 037072’ 004567 
9607 037076’ 105067 
9608 037102’ 016300 
9603 037106’ 010501 
9610 037110" 162701 
9611 037114" O26001 
gle G37ie0’ O0l4d3 
913 037122” 111002 
9614 037124" 060200 
915 037126’ 000772 
9616 037130’ 005720 
9617 037132’ 010701 
9618 037134’ 062701 
9619 037140’ 004557 
9620 037144’ 012767 
9621 037152" 004567 
9622 037156’ 004557 
9623 037162’ 03737e" 
$624 037164’ OO0064 
9625 037166’ 010400 
9626 037170" 004567 
9627 037174" 000262 
9628 037176’ O0S201 
9629 037200’ 012600 
9630 037202’ 004767 
9631 037206’ 012600 
932 037210’ 005721 

| 9633 O37el2" 004767 

| 9634 037216’ 004567 
9635 037222’ 004567 
9636 037226’ 037456’ 
9637 037230’ 000032 

| $638 037232" 012600 

| 9640 Meee 1 

| Sy Ber oe 

| 9643 037250’ O04 

| 9644 037254" 000744 

| S645 037256’ 042767 

| 9646 037264" 042713 
947 037270’ 000167 
9648 

| 349 

| 9650 037274" 005700 

| 2h G37e7e’ oologs 

se fran, teers 

| 9654 037306’ 005204 

| 655 037310’ 005300 
9656 037312" Leelee 


020000 o0000e 20s: 


000012 
001520 
000S71 


000012 
000004 


000002 


oo0eso 


000082 


174730 


30$: 


4S$: 


SOs: 


LVECLI: . 
LVEDEP: I 


LVECLe: 


LVEREX: 


R1) 
SPRONER, POPSW(R3) 
30$ 
#10. , SP 
RS, LTSTDE 
LPRRDE 
PSRCST(R3),RC 
RS.R1 


#10. Ri 
4(RO},R1 


HDN-. 
RE peoee’ 
#06451, LVEHDN+4 
eee 
LVEHOR 
oy 


R4Y,RO 
RS’ BTASLB 
LVENSG-. 


(SP)+,RO 
cae 

PEBBOV, POPSW(R3) 
Pe, Lie COECNP 


SCTUDED, 7 a 
wSETDED, (R3) 
CUPGER 


100$ 

#2, (SP) 

PC 

RY 

RO 

(R1)+, (R2)+ 


24-SEP-76 13:54 PAGE Se-S 


;AC0D 1 TO PROG’S DATA ERR CNT 
j FSH INDICATE PRINT ON ERROR? 


REMOVE ERROR ATA ER FROM STACK 
;EXIT IN-LINE To G 


0 
: COMPUTE THIS STMNT’S ADR 
cous THE STMNT? 


:N. Y=50$ 
:GET THIS STMNT’ S LENGTH 
; POINT AT NXT STMN 


IT 
‘POINT AT STMNT # 
SET UP ADR OF AREA IN MSG 


; CONVERT iy! # TO ASCII 
5R , ben 8 DATA IN THE MSG 


HE PROG 
‘PRINT THE HEADER MSG 
;GET THE BAD BYTE # IN RO 
:CONVERT TO ASCII DECIMAL 
;POINT AT MSG’S 1ST DATA FIELD 
;GET FIR BYTE 


F 
T TO ASCII 

‘GET BAD DATA BYTE 

‘POINT AT MSG’S 2ND DATA FIELD 
‘CONVERT IT TO ASCII 

‘PRINT THE PROG # MSG 

‘PRINT THE BAD DATA MSG 

: RESTORE CURR BYTE COUNT 
RESTORE DATA FIELD # 1 ADR 
RESTORE DATA FIELD # 2 ADR 

:OPSW SAY PRINT ONLY 1ST BAD BYTE? 
?N, YL 

; RESUME 


TA COMPARE 
‘ANOTHER ERROR? (N. Y-LVEDEP) 
; RESET SYSTEM’S DEDICATED FLAG 
SET PROG’S DEDICATED FLAG 
60 TO MPG’S USER PROG ERR RETN POINT 


;BYTE COUNT = 0? 


POINT PAST ERROR BR INST 
‘EXIT IN-LINE AFTER BR INST 
"ADD 1 TO BYTE # 

‘SUB 1 FROM BYTE CNT 

‘DATA BYTES COMPARE? 













OTNGAC.P SUBROUTINES USED BY USER PROGRAM STATEMENTS 


BEQ LVECMP ;N, Y-LVECMP 
9658 16’ Olebe7 MOV (SP)+, (PC)+ SAVE RETURN ADR 
9653 037320’ 000000 1108: .WORD O 





3680 . EVEN 


MAINOEC=11-DTNGA-C MPG / USER PROGRAM SHARED CODE MACYL1 27(732) 24-SEP-76 13:54 PAGE Se-6 
’ Ol MOV R2,-( SP) TA 2 AOR 
abe: ye NE SURG BETA § 
9662 037326" 010046 iti Nov RO, = (SP) ss :SAVE CURR BvTe CMT 
Fae paz aad, ti I 177777 MOV -1(R1)'-(5P) ay TA # 1 BYTE 
9665 037340’ 016707 177754 MOV 110$,P¢ EXIT IN-LINE 8 DO THE BR INST 
ape 
8668 037344’ 042700 177400 LYECDB: BIC #177400 RO RESET OTHER BYTE 
9669 037350’ 004567 001552 JSR RS, BINAS1 ‘CONVERT BYTE TO ASCII 
9670 ’ 012761 De0046 177772 MOV nO =B(RL) ‘STORE LEADING BLANKS 
9671 ’ 112761 O00040 177774 MOVB 4tRi 
672 037370’ 000207 RTS Ha sEXIT IN-LINE 
9674 
9675 037372’ O4OSO4 O40S24 O4244O LVEHDR: .ASCII /DATA ERROR (STMNT & / 
037400’ OSli22 051117 Oe4040 
037406’ OSele3 047115 020124 
037414’ O20043 
3676 ers, ae 054130 OO064S1 LVEKDN: .ASCII /XXXX)/<«015><012><O11> 
| 9677 Se yuse: poees 042524 021440 -ASCII /BYTE # DATA 1 DATA 2/<O15><Ol2e> 
037434’ O20040 o40S504 o40S24 
037442" 030440 O20040 040504 
ee 037450’ O40S24 031040 O0OS0IS leo 
| 9679 037456" oeD040 O20040 LVEMSG: ASCII 74015) <012> 
037464’ O20040 O20040 d20040 
027472’ 020040 020040 
037500’ 020040 O20040 d20040 
037506’ 005015 
| 
| 
} 





MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE Se-7 SEO 0205 


-SBTTL USER PRINT SUBROUTINE 
haialaileleleleieiaisleieileielelelsinieieleieisisiaieeieleieisiaieileieleieisieleieleieieisisieiehdelsieisieieilelelsieleielsiela 


yy S oreerey NE ce ns & Pek Pe PoINt OPERATIONS TO 


aeee DISPLAY DEVICE A 
bore USER IN TRUC RUCTIONS. ITS P a is Ay A eatae 
se mC nice dhe HOR Bees 


9699 


sg 


Ee 
Rees Sue 


Ts) 
TwuUrO 


8888 
w 


9714 


eeseeseeswses8eeeseeseeeesee eee ehlUlUS 


ee 


¥ 
i 


i 
N 


oo 
=e 

“NI 

gs 8 


MAINOEC-11-DTNGA-C 
TNGAC.P11 USER PRINT SUBROUTINE 
9682 
9683 
| 
| 
| 


174410 


ed ed ee ee ee ee ee he 


USRPRT: CLRB 
USRPR1: JSR 
USRLP: CMP 
B 
10S: MOV 


20$: MOVB 


LPRCAL: 


30S: 

. WORD 
LPRCNT: .WORD 
LPRFWA: : WORD 
LPRCAL: TRAP 


CALLING SEQUENCE 


erga 


R4, SREG 
Repo RY 
(RS)+,R3 
R3,R1° 


R1, #50. 
850. Rl 
RL LERCNT 


#LPRBUF-. .R2 
(RY) +, (Re}+ 


D, CSYSFW 


CTUSWR,R1 
1} pi 
4(RO) 


RS, USRPRT 
ADDRESS 
BYTE COUNT 


s EHEAAARLAERA LAL ELA LE ARE ALE LL EL EL ELE RLELAAERARERELRELERLELELE EL ELE LELLELE 


;RESET LAST PRINT FLAG 
;SAVE REG’S RO - RY 
;GET TEXT 


;AND BYTE COUNT 
SET UP_WORK COUNT 
; ADJ TOTAL CNT he A ae TESTING 


: NO- TRUNCATE IT FOR NOW 
;STORE BYTE CNT 
;POINT Re AT 

BUFF 


T 
: MOVE MESSAGE 


sDECR Oe. at 
or HAR S GROUP? (Y,N-20$) 
se ta eT HIS GROUP? 


iN Yet Tet LAST PRINT? 
N-LPRCAL 
{TELL DRIVER TO RESET DEDICATED FLAG 


s INITIALIZE TO CONS TERM USR WRITE 
GET ADR OF LIST 

IS THERE A PRINTER ASSIGNED? 

ite , T icer’s PRINT ROUT ADR 

Sa FOR Pe PRINT 

BYTE. COUNT 


;BUSY ADDRESS 
sFLAGWORD ADDRESS 


;GO_INTO KERNEL ee DOES 
;INSTS AT "UPRTKM" & RETURNS 
IN-LINE IF NOT BUSY. IF BUSY, 





88 
ites 


175352 


MACYL1 27(732) 


RS,CIOBSY 
R3 


USRPEX 
R3,R1 
Rl 


ay 
4, RREG 


RS, CIOBSY 


LPRCAL 
MM 


CTUSWR, R1 
CLISTI,RO 
4(RO) 


30$ 
ea" 
LPRBUF-. 


XXXX 
UPRTKB-. 
XXXX 


#LPRBSY-PGEBA+PECONS, (SP) 


0 
0 
50. 


24-SEP-76 13:54 PAGE S2-8 SEQ 0206 


sRETURNS AT “LPRBSY. 
;HALT FOR 1/0 COMPLETE 
;NOR E DATA ON THIS MSG? 
:BR IF NO - GO TO EXIT 

‘SET UP REMAINING BYTE CNT 


;GO PRINT NEXT GROUP 
; RELOAD REGISTERS 


E TURN 
'IF 1/0 NOT STARTED, WAIT & THEN 
‘HIT IT AGAIN 


AOR OF TO_ CONS TERM USR WRITE 
s1S THERE A PRINTER ASSIGNED? 


:Y N=-30$ 
cet USER S PRINT ROUT ADR 
‘ISSUE THE MSG 


REL DATA ADR 
; MSG BYTE CNT 
; REL BUSY ADR 
;._FLAGWORD ADR 
;RETURN IN-LINE FROM TRAP 


-SET UP BUSY RETURN ADR 
;RETURN TO BUSY ADR FROM TRAP 


;REALLY DEDICATED FLAG 
MESSAGE BUFFER 


PRINT PROGRAM NUMBER SUBROUTINE 


PRINT ASCII SUBROUTINE 


MAINDEC-11-DTMGA-C MPG / USE® ©SUOLRAM SHARED CODE 
OTNGAC.P11 USER PRINT SUE20UTINE 
9744 , 1 INC 
apace apceg’ 0007S in 
8746 037656’ OO4467 001126 USRPEX: JSR 
8747 027662’ 000205 RTS 
9748 037664’ O04S67 175326 LPRBSY: JSR 
8749 37670’ 0007 BR 
9750 1 IF OF 
9751 UPRTKM: MOV 
He my 

TST 

9754 BEQ 
9755 MOV 
9756 30$: JSR 
9757 _ WORD 
9758 LPRCNT: .WORD 
9759 WORD 
9760 LPRFWA: .WORD 
9761 RTI 
9762 
9763 UPRTKB: MOV 
9764 RTI 
9765 ooc .ENDC 
9766 72’ 090 LLPRTF: . BYTE 
9767 037673’ 000 LPRRDE: . BYTE 
9768 037674’ OO006e2 LPRBUF: .BLKB 
9769 . 
9770 : 
9771 : 
9772 : 
9773 037756’ 105767 177711 (PROGN: TSTB 
8774 037762’ 001013 BNE 
9775 037764’ 010246 MOV 
9776 001 IF 
9777 “FF 
9778 037766’ 016702 177644 MOV 
9779 IFT 
9780 CLR 
$781 000 -ENDC 
9782 037772’ 016267 O00006 CONDI MOV 
9783 40000’ 012602 MOV 
9784 O40002’ 004567 177502 JSR 
9785 40006’ 040014" LPNADR: .WORD 

| §786 040010’ 000006 WORD 
9787 12’ 000205 LPNEX: RTS 
9788 14° 021520 LPN: ASCII 
$789 040016’ O40 040 040 “BYTE 

o4ode1' O11 

| 9790 , 

| 

| 


LPRRDE 
PNE 


LPNEX 
Re, -(SP) 
MM 


LPRFWA, R2 
Re 


cone nee? LPN+2 
(SP)+, Re 


RS, USRPRT 
LPA 


/P&/ 
40,40,40,11 


; TEST REALLY DED FLAG 
;DONT PRINT P NBR IF SET 
:SAVE R2 


;GET PROG TBL POINTER 
;POINT AT START OF PROG TBL 
; MOVE P_NBR TO MSG 


OOOO ___—_—_—V—_VV—_e 





sale + Ngan? MPG / USER PROGRAM SHARED CODE MACY1L1 27(732) 24-SEP-76 13:54 PAGE Se-9 SEG 0207 
DTMGAC.P11 USER PRINT SUBROUTINE 





9793 oO40022’ 004567 000570 LPRNG: JSR RS, LTSTDE GO TEST DEDICATE FLAG 
9794 040026’ 004567 177724 UPRASC: JSR RS’ LPROGN sPRINT P NN 
9795 * 012500 MOV (RS)+,RO ‘GET ADDRESS 
* 012501 MOV (RE}s" a “AND BYTE COUNT 
a5e9 * 100422 BMI LPGNCT :BRANCH IF NEG COUNT 
9798 O40040’ 10S067 177627 CLRB §_ LPRRDE 
9799 O40044" 920500 LPGTIL: CMP RS, RO ; TEXT INLINE? 
3601 40086" Osd1G Ae eh URN 
' nsn* = 
9802 * 932705 000001 BIT #1'RS “WAS BYTE CNT ODD? 
9803 O400S6’ 001401 BEQ LPGTG1 “Y N-LPGTGL 
Fl y INC RS ;AbJ RET ADR TO EVEN 
’ Ol 000010 LPGTG1: MOV RO, LPGADR : MOVE 
9605 40066’ 910167 000006 MOV RI, LPGBYC “AND BYTE COUNT TO CALL 
9807 O4u072’ 00457 177412 ISR RS; USRPRT ‘CALL USER PRINT SUB 
9808 040076’ 000000 LPGADR: .WORD 0 
9809 40100" LPGBYC: :WORD 0 
9810 102° 75 BR LPOFXT :CR LF AND EXIT 
9811 O40104’ 105267 177563 LPGNCT: INCB _LPRRDE ‘SET REALLY DEDICATED FL 
9812 040110" OOS401 NEG Ri GET POSITIVE C 
3813 040112’ 000754 BR LPGTIL GO TEST IF Feyte ANLINE 
9815 : 
3816 : PRINT OCTAL OR DECIMAL SUBROUTINE 
9818 040114’ 004567 000476 CPRND: JSR RS, LTSTDE :GO TEST DEDICATE FLAG 
9819 040120’ 005067 000254 CLR LOCTSid “CLEAR OCTAL SWITCH 
Ss] Site Bees & Ete 
1 126’ 7 OO04G4 LPRNO: JSR 5. : ISTOE GO TEST DEDICATE FLAG 
9822 O40132’ 005267 o00e42 INC *SET OCTAL SWITCH 
3823 136’ ? 990010 000160 LPOSDF: MOV i.  BOCNT -SET FORMAT CNTR = 8 
144° je JSR CPROGN :PR 
9825 040150" 105067 177517 CLRB =— LPRRDE ‘CLEAR REALLY DED FLAG 
9826 040154’ 012504 MOV (RS)+,R4 GET ADDRESS 
9827 040156’ 012503 MOV (R5)+,R3 ‘GET BYTE COUNT 
9828 040160’ 03°704 000001 LPOOET: BIT #1, R4 IS ADDRESS ODD? 
9829 040164’ 001431 BEQ LPOCBC *NO-CHECK BYTE COUNT 
9830 040166’ 112400 LPOODD: MOVB = (R4)+. RO GET ONE BYTE 
ges2 O17" povee? poois2 5h eG CONVERT 
9833 eee 10702 MOV PC’ Re 
9834 O40202’ 062702 174060 tNBUF-. , Re 
9835 040205’ Ole72e O20040 MOV #20040, (R2)+ sBLANK OUT 
3836 outele levee 000040 MOVB #40, (Re)+ ‘LEADING ZEROES 
040216’ 000003 ADD #3, Re 
9838 O40e22’ Ole722 020040 LPOPRT: MOV #20040, (R2)+ STORE TWO TRAILING BLANKS 
3829 puaees 7? 177256 JSR RS, USRPRT -CALL USER PRINT SUB 
* 034262" LPOADR: .WORD LINBUF 
$841 040234’ 000010 “WORD 8. 
9g42 040236’ 005303 DEC R3 ; DECRENENT BYTE COUNT 
9843 040040’ 001416 BEQ LPOFXT IF ZERO FIND 
9844 040242’ 005367 000056 DEC LPOCNT ; DECREMENT BORHAT COUNTER 
9845 a bo14e? BEQ LPORTN ;CR LF IF Ze 
9846 ’ 63 000001 LPOCBC: CMP #1.R3 TF ONLY ONE REMAINING 
9847 040254’ 001744 BEQ LPdODD ‘TREAT AS ODD ADDRESS 
ge48 040256’ 012400 LPOEVN: MOV (R4)+, RO GET WORD 





MAINDEC-11-DTMGA-C 
DTNGAC .P 


: 


ee 


sae 


COTE 


PEREEEV ROR PARENT LULL UU RRRERERRER Seated cali iaia saree 


? 
a 
oO 


MPG / USER PROGRAM SHARED CODE 
USER PRINT SUBROUTINE 


000066 
174002 


177371 
000001 
177176 
177156 
000010 
i77406 


o0002e 
000536 


000570 


000210 
1773 
17724 
000001 
173622 
000016 
000040 
000010 


000060 
000061 





MACYL1 27(732) 





JSR RS, LTOASC 
MOV p 
ADD sL INBUF+6-. ,R2 
C R3 
LPOPRT 
TSTB = LPRRDE 
BNE LPONOM 
MOVB 81, LLPRTF 
ISR RS; U 
-WURD _LCRETN 
“WORD 2 
: RTS RS 
: .WORD QO 
: JSR RS, USRPRT 
: .WORD LCRETN 
“WORD 2 
MOV #8. ,LPOCNT 
JSR RS. CPROGN 
BR LPdcec 
TST Lec reH 
Te bebe 
.WORD  LINBUF-. 
RTS R 


iS 
JSR RS, BTASLB 
. WORD L IABUF -. 


PRINT BINARY SUBROUTINE 
JSR RS, LTSTDE 

#2, LPOCNT 
RS; LPROGN 
LPRRDE 
MOV (RS)+, RY 
MOV (R5)+,R3 


: BIT #1 
BEG LPBCBC 

: MOV PC Re 
ADD #LiNBUF-. ,R2 
MOV #8., 

: MOVB #40, (R2)+ 
DEC Ri 

LPBLP1 

MOV #8. .R1 


BNE LPBLPe 





24-SEP-76 13:54 PAGE S2-10 









; CONVERT 


iE CRRINY I gvTE CNT BY 1 


; TEST REALLY Nee ey rk 
erin S Ts THe tasr: Prt FLG 


iN) NT INE PEED 


; RETURN 

: FORMAT COUNTER 
PRINT CR LF 

Pe ae i 

60 CHECK BYTE gs 


N 
: CONVERT TO OCTAL 


;RETURN 
;CONVERT TO DECIMAL 
; RETURN 


;GO TEST DEDICATE FLAG 

:SET FORMAT CTR=2 

SPRINT _P NN 

;CLEAR REALLY DED FLAG 
RESS 

'GET BYTE COUNT 


1S ADDRESS ODD? 
;NO-CHECK BYTE COUNT 


;SET SPACE COUNT IN Rl 
; INSER 
;8 LEADING BLANKS 


; SET BIT COUNT=8 

EFT JUSTIFY 

: SHIFT aM INTO CARRY 
-IF CARRY NOT SET 

: STORE ASCII ZERO 

pb geet ONE 


; REPEAT 
;BIT COUNTER=O 








Pe Ome be oes 
NO £ 


BL838:38.283 


PUSS SEES ESIC ara gy 







if 


ja 
; 


+++ 
ae 






177514 


173370 


174032 


173330 


MACYL1 27(732) 
MU #11, (R204 
MO #11, (Re)+ 
JSR RS, USRPRT 
LPBADR: - ORD LINBUF 

DEC 5° 

SEQ LPOFXT 
LPBCFM: DEC LPOCNT 
vecee: eS" 

” BEQ LP 

MOV R2 

ADD sLiNeUF-. ,R2 
LPSEVN: MOV (R44. RO 

ROY sie. , Ri 

BR 
LPBRTN: JSR See RPRT 
LPBCRI: -HORD LCRETN 

* FJ 

aH ey an 

BR LPBCBC 
LTSTDE: BIT SCTUDED, CSYSFW 

BEQ TDE 

IF OF MN 

“IFF 

Bir 8SETDED, ICPGCPT 

BIT SSETDED, 380 

. ENDC 

BNE LNOTDE 

SUB 84. RS 

Jue c1bgsy 

TE OF MN 
LNOTDE: Hoy CPGCPT,R3 
LNOTDE: CLR R3 

- ENDC 

BIS S8SETDED, (R3) 

1S SCTUDED, CSYSFW 

IF OF MM 

“IFF 

i area 

MOV PFWADR(R3) ,LPRFWA 

-ENDC 

RTS RS 
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5 STORE TWO 
; TAB CHARACTERS 
;PRINT 18 CHARS. 


PR 
pecan BYTE COUNT 


;GET A IF EVEN 
;SET BIT COUNT=16 


;G0_ STORE i & ONES 
;PRINT CR 


;RE-INIT FORMAT CTR 
:GO CHECK BYTE COUNT 

:TEST DEDICATE FLAG 

;RETURN IF NOT SET 

SCONSOLE DED TO THIS PROG ? 
SCONSOLE DED TO THIS PROG? 


3N, Y-LNOTDE 
:OTHERWISE BACK UP RS 
“AND RELEASE CONTROL 


;GET PROG’S TABLE ADR 

;GET VIRTUAL ADR OF PROG’S TABLE 
SET Systen’S DEDICATED FLAG 
;STORE PROG’S TABLE ADR 

;STORE HI 16 BITS OF PRG TBL ADR 
; RETURN 











MAINDEC-11-DTNGA-C MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PACE $3 SEQ 0210 
Fs) Pil USER PROGRAM INTERRUPT COMMON PROCESSING ROUTINES 
9357 .SBTTL USER PROGRAM INTERRUPT COMMON PROCESSING ROUTINES 
9959 5 SELARELERELALELALAARAKELELAALAA SASL AALAASSELARLALELAEFRATAAALFRLLAE 
eg 71 : REQUIRED IN MEMORY MANAGEMENT VERSION 
; INCLUDED IN BOTH VERSIONS 
a3 <7 ; FOR DEVICE ROUTINE COMPATIBILITY 
Baen5 : PEFESLFEFHLESHEFRESLSLSASARA RE HA SEERA RS ES KS ERASE EA FSS EES LEH LEKF SESS 
a 
oxe8 ;SET UP INTERRUPT VECTOR S/R 
a JSR _—s RS SETVEC S/R CALL 
9971 : .WORD  VECT ADR INT VECT ABS ADR 
9972 : “WORD PSW PSW VALUE 
9973 : “WORD  INTROUT-. INT ROUT REL ADR 
S372 001 IE OF MM 
pale 72" 004467 000100 SETVEC: JSR R4, SREG ;SAVE REGS RO - RY 
3378 , 12500 MOV (RS)+, RO :GET VECTOR ADR 
* 012501 MOV (R5)+/R1 :GET PSH 
9980 040702’ MOV RS. Re GET INT ROUT ADR 
eA ee wo eRe See eter tals 
’ O1 MOV Re, (RO)+ “PUT IT IN VECTOR ADR 
9983 040710" 010110 MOV Ri’ (RO) :STORE PSW 
9984 040712’ 00042) eR veEcEex GO TO EXIT 
4 = SETVEC: JSR R4, SREG ;SAVE REGISTERS 
MOV (R5)+,R1 “GET VECTOR ADDRESS 
9988 MOV (RS)+;Re GET PSH 
9989 MOV Ro,R3 GET INT ADR 
; 9990 ADD (RS)+,R3 : IT TO PAGE 0 
9991 MOV PC sPOINT RO AT 
9992 ADD SVECTBL+4-. , RO * INTER-PAGE VECTOR TBL 
9993 MOV R1,R4 
| @gay ASL RY sADJUST RO TO ENTRY 
9995 ADD RY, RO >FOR THIS VECTOR 
9996 MOV JsUPARO, (RO)+ *SAVE PARO CONTENTS FOR PAGE S BASE 
9997 BIS 8PSCONS, R3 *SET PARS SEL BITS IN INT ROUT AOR 
9998 MOV R3, (RO) :SAVE IN TBL 
 -9gg9 SUB "RO *POINT RO AT JSR IN TBL 
| 19000 TRAP :GO INTO KERN MODE TO SET UP VECT 
| 10001 “DOES INST’S AT “KSETVC™ & RET IN-LINE 
190d BR VECEX GO TO EXIT 
19004 KSETVC: SUB #PECONS, RO ;CONVERT TBL ADR TO KERNEL SPACE 
1 ADO PC. RO 
| 10006 ADD sPGEBA-. , RO 
19007 MOV RO, (R14 ;SET HARDWARE VECTOR 
i MOV * (RL) AND PSW 
100093 RTL RETURN FROM TRAP 
10010 IFTF 
| 10011 
| 1eo12 
| 








MAINDEC-11-DTMGA-C / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PACE 53-1 SEO 0211 
DTNGAC.P1l USER PRoGRAn INTERRUPT COMMON PROCESSING ROUTINES 
ete ;CLEAR INTERRUPT VECTOR S/R 
10015 : JSR RS, CLAVEC S/R CALL 
10016 : .WORD VECT ADR INT VECT ABS ADR 
ete 14’ 7? 000056 CLRVEC yer R4, SREG - SAVE REGS RO - RY 
10060 bag7e0" 12500 0 HOV (R5)+,RO ;GET VECTOR AOR 
ered > Boovet my AAR SET R1 TO NXT ADR 
10023 * 010120 MOV R1, (RO)+ sBSINT: wi AT .+2 
thes , 10 CLR (RO) sPUT + 
i , ll 8R VECEX 60 TO 
100265 IFT 
108? CLRVEC: JSR R4, SREG REG ISTERS 
1 MOV (R5)+,RO saeye VEC ADDRESS 
10029 MOV PC. R2 ‘POINT Re AT 
10030 ADD aVECTBL+6-. ,R2 ‘INTER PAGE VECTOR TBL 
ipo32 ASL Rt : sADJUST R2 TO ROUT ADR ENTRY 
10033 ADD R1,R2 :FOR THIS VECTOR 
10034 MOV RO’RI 
1003S TST (RL }+ ;SET R1_ TO NEXT ADR 
10036 TRAP = «& :GO INTO KERN MODE TO CLEAR VECTOR 
10037 ;DOES INST’S AT “KCLRVC™ & RET IN-LINE 
10038 CLR (Re) INTER-PAGE VECTOR 
10039 8R VECEX 60 TO EXIT 
te CLRVC: MOV R1, (RO)+ ;POINT VECTOR AT .+2 
10042 CLR (RO) “PUT HALT AT .+2 
10043 RTI ‘RETURN FROM TRAP 
poo4y IF TF 
{DOME 
10047 ;TEST INTERRUPT VECTOR S/R 
ipo : MOV PFWADR(R?) ,-(SP) -PUT PROG’S FLGWD ADR ON STK 
10050 : SR RS, TSTVEC /R 
10051 : .WORD VECT ADR INT VECT ABS ADR 
10052 : “WORD  INTROUT-. INT ROUT REL ADR 
10053 : BR L EXECUTED IF NOT SAME 
10054 : DESTROYS RO 
itis pe IFF 
1 O40734’ 01261 TSTVEC: MOV (SP)+, (SP) ; UNUSED FLGWD ADR 
10058 Diora Dowie? 000034 JSR R4, SREG : GS RO - RY 
1 040742’ 012500 MOV (R5)+,RO *GET VECTOR ADDR 
10060 * 010501 MOV RS, RI : NT ROUT ADR 
1006 ’ 1 ADD (R5)+.R1 : IT UTE 
1poe? * 021001 c (RO), RL -1S IT VECTOR ? 
10063 * 001001 BNE VECEX : 
| 10064 * 005725 TST (RS)+ ;YES RS 
10065 040756’ 004467 oj00026 VECEX: JSR — RY,RREG "RESTORE REGS RO - RY 
19066 040762’ 000205 RTS RS 
| 10068 TSTVEC: MOV 2(SP),RO GET PROG FLGWD ADR OF STK 
j 





MPG / USER PROGRAM SHARED CODE MACY 


ett 
DTNGAC.P USER PROGRAM INTERRUPT COMMON PROCESSING ROU 


a oe 


REISS f 


~— 


Seanad 


040764" o00002 


Qe b= 8 B= bs B= be te = ft be Be 9 Bn ee fo Be hes rt fh Bm Pe f -2 Bo = fF fe ae fe Be fh be bt ae fnew Pas be Bae fs Bn ho Pe wt 


QNOOOOVCOOOOCOOOOO0OOO000000 
POR Bs e own corn -OBSNRREONES 


[on ee + eee ee ce re ne cee 
' 


(SP)4+, (SP) 

JSR RY, SRE 

ist ae}s RI 

MOV RS, Re 

ADD (RS)+,R2 

MOV PC.R3 

ADD SVECTBL+6-. ,R3 

Aob ORLA RG 

I sPSCONS, 

BiB ORD CR} 

me Vet, 

BNE Geary 

TST (RS)+ 
VECEX: JSR RY, RREG 

RTS RS 





Hee (782) 24-SEP-76 13:54 PAGE S3-2 


;ELIMINATE {78 SPACE ON STK 


:FOR NIE VECTOR sane eye 
fet VECT SeieeT TING ar hr 
‘VIRTUAL ADR? 

sy Freud AATeH tre? 


Y.N- 
tyes BUMP RS & BYPASS BR INST 
“RESTORE 

* RETURN 


; INTER-PAGE INTERRUPT VECTOR TABLE 


VECTBL: .REPT 128. 
JSR RS, INTCOM 
WORD 0 


Hoe 


;TO INTERRUPT COMMON 
;SA UPARO 
s INT ROUTINE ADR 


- PAGE 
; INTERRUPT INTERCEPT COMMON PROCESSING S/R 


INTCOM: MOV QSKPARS, -(SP) 
MOV #KPARS, -(SP) 
MOV : sKPARG 
MOV (RS)+, O8KPARS 
JSR PC achS)+ 
INTRET: MOV (SP)+, J8KPARE 
MOV (SP)+, a8KPARS 
MOV (SP)+,RS 
RTI 
_IFTF 
jRETURN FROM INTERRUPT S/R 
IMP RNTINT 
. FF 
RTNINT: RTI 
FT 


RTNINT: f 






me S PAR S & 
sPOENT, PAR PAR 6 AT pe Breese £08 SOE Ee 


Toe Rental oT INTERUFT & ROUT 


mrs FRON FRTERRUPT 


S/R CALL 


;RETURN FROM INTERRUPT 
;RET TO INT COM PROC ROUT AFTER JSR 








et et us / USER PROGRAM SHARED CODE 
DTNGAC.P 






MACYL1 27(732) 


USER PROGRAM INTERRUPT COMMON PROCESSING ROUTINES 


—- 
oO000 
—— 


040766’ 112001 
040770" 900207 


a 


SSeS EreaeERs 


oO 


: gaz 
_ 4 
nN<NnO 
7 


o 
wo 


040772’ 110120 
040774" 000207 


be hs a ee 
OoOOOOOOOoOoOoOo 
Reaper g erg eat et est eet eg ee at ee 
+ PN 





ce ee re ae ees ee 


;GET DATA BYTE FROM USER’S ABS/VIRT ADR SPACE 


24-SEP-76 13:54 PAGE 53-3 


ISR PC, GETBYT 
CONTAINS ABS/VIRT MEMORY 


YTE_IN Ri 
aru WILL TENCRERENTED BY 1 
ALL OTHER REGISTERS ARE UNCHANGED 











PC 
(Rd 


GPBCSU 


S883 


8 


86 


% 
a 


BSsaaa-Ses 3 


), @8KPDR4Y 


BBEGFS 
338s. 





;PUT DATA BYTE IN USER’S ABS/VIRT ADR SPACE 


RO WILL 

ALL OTHER REGIS 
R1, (RO)+ 
PC 


Re, GPBCSU 
R1, (RO) 





a OMMON SET UP 
;GET_DATA BYTE IN RI 
me PDR & PAR REGS 
0 1 TO DATA ADR 
aye KERNEL’S PAR 4 8 


G ADR 
Feit Ae Bate cet ecr BITS 
ErS OE INTO USER'S 
PAR/PDR STORAGE 


;ADD me yy TBL BASE & PAR DISPL 
shew Pan 48 


PAGE CT Bits 
ieee ae 


im DATA BYTE 


00 COMMON SET UP 
;STORE DATA BYTE IN MEMORY 





OOOO OVOANIOHO0O00000000 
De be he be ps he 0 be he be oe he bh 
BBSRFRESHLSSSVRRESRZ 


8 


a etetetetetetectet tated 


a8 


or od 
ba be 


Qo0o0 


(teehee 
o£VMoO 


RS 


-DTNGA-C 





USER PROGRAM INTERRUPT COMMON PROCESSING ROUTINES 


SREG: 


RREG: 


BR GPBEX 
- ENDC 


;SAVE REGISTERS RO THRU RY S/R 


: JSR —-R4, SREG 
MOV. —s-R3, = (SP) 

MOV —s_ Re, = (SP) 

Moy RL, ~(5P) 

MOV =(SP) 

MOV —s- RY; PC 


;RELOAD REGISTERS RO THRU RY S/R 
‘ JSR R4, RREG 





MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE S3-4 


360 TO EXIT 


S/R CALL 


;SAVE REGS R3 - RO 
;R4 SAVED BY JSR TO THIS S/R 


sEXIT IN-LINE 


S/R CALL 
sREMOVE THIS JSR’S RY FROM STK 
sRELOAD RO - R3 


;RESTORE ORG RY & EXIT IN-LINE 





po ne re a ee ee 





ee 


=o bs 0 fe pie Pee Bo f= Pw 


fofoforoforurfore 
WONMUI CWO. 


BaB 


: 
y 


SSIES 


PUFU 
-— 


Po Be Pas fine Poa Paw fran Pat Bens noe fic fim p> po bs po bo 


SoS 


aS 


oe 
PEPLPSPLECLLLLLLEPLLLLLE 


yu 


-_ 


punaneres 


MPG / USER PROGRAM SHARED CODE MACY1L1 27(732) 24-SEP-76 13:54 PAGE S4 
PACKED DECIMAL TO ASCII SUBROUTINE 


POST SOT OST OPT OT OT OST OPT OT OST OST OPT OPT OT OFT OPT OFT OT OST OFT OST OPT ONT OH 
SR THSREB TORE COP ERO ESE 
Sarno 28 


-SBTTL PACKED DECIMAL TO ASCII SUBROUTINE 
hsiaialahaieieleleleleleieisisieiaieieiehleleleieieiaisleleieieleleleieisiaieleleieieleleleleieieisieleidileleieieleieielelslelei 


PACKED DECIMAL TO ASCII SUBROUTINE 


TINE CONVERT TO 6 BCD 
pyar sire foe! Ther of SCI ae WITH 
EQUIVALENT ASCII NUMBER 
rare INE AbENG BB aes INGE GNORED. 


CALLING SEQUENCE JSR RS, DECASC 


ENTRY RO POINTS TO START OF PACKED CODE 
Rl POINTS TO START OF RESULT AREA 


EXIT no POINTS ONE BYTE BEYOND PACKED NUMBER 
1 POINTS ONE BYTE BEYOND ASCII NUMBER 


DESTROYS Re 
5 EMME SEHR HESEHEHE HEE EHEEEEEE E  E R SEEEEESEEESEEEEEEEEAE EAEHEEEEEEEEEEE 


ee hhh ete te ee te a ee Tl 


DECASC: MOV R3,-(SP) 
MOV RY’ -(SP) ;SAVE HOLY REGISTERS 
MOV #3, R2 :SET COUNTER = 3 
LDASLP: MOVB (RO)+,R3 ‘GET TWO PACKED DIGITS 
MOVB Ra, Re :SAVE SECOND DIGIT 
RORB  R3 
R3 ;SHIFT FIRST RIGHT FOUR 
BICB #360,R3 ;MASK OUT LEFT 4 BITS 
B 860,23 *CONVERT TO ASCII 
#77_R3 ;CHECK FOR A NULL 
BEQ LSKIPL *SKIP IF 
MOVB (R1)+ *STORE ASCII DIGIT 
LSKIP1: BICB #8360,R4 :MASK LEFT FOUR BITS DIGIT 2 
BISB #60, R4 :CONVERT TO ASCII 
C #77_R4 *CHECK FOR A NULL 
BEQ LSktPe2 *SKIP IF TRUE 
MOVB RY, (RI) + :STORE ASCII DIGIT 
LSKIP2: DEC Re 
BNE LDASLP ;LOOP FOR OTHER DIGITS 
MOV (SP)+,R4 
MOV (SP)+:R3 sRESTORE HOLY REGISTERS 
RTS RS “RETURN TO CALLING PROGRAM 














MAINDEC-11-DTMGA-C MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE SS SEG 0216 
DTNGAC.P11 BINARY TO ASCII SUBROUTINE : 


tsa -SBTTL BINARY TO ASCII SUBROUTINE 
5 EE EE EEE IEEE EEE EE EE Ee 
THIS SUBROUTINE CONVERTS ONE OR TWO 16 BIT 


hs ae 
sant 


1 





1Gebe : BINARY NUMBERS INTO & OR 8 ASCII DIGITS 
10264 : 
iced : CALLING SEQUENCE ISR RS,BINASC (BINAS8) (BINASI) 
10266 : .WORD RESULT-. 
10epe ENTRY RO CONTAINS A 16 BIT UNSIGNED NUMBER 
102693 : R2 CONTAINS UP TO 8 ADDITIONAL BITS OF 
10270 : HIGHER SIGN FICANCE THAT WILL BE 
10271 : CONVERTED IF THE BINASS ENTRANCE IS 
10272 : USED. THESE BITS WILL BE RIGHT JUSTIFIED 
10273 : RESULT IS THE LABEL OF THE AREA IN WHIC 
10274 : THE ASCII DIGITS ARE TO BE PLACED (6 IF ENTRY 
10275 : AT BINASC, 8 IF AT BINASB). 
10276 : OUTPUT ADR IS ALREADY IN Ri ON BINASI ENTRY. 
10277 : EXIT Rl CONTAINS ADR OF RIGHTMOST BYTE + 1 IN THE 
10278 : OUTPUT AREA. 
10273 : DESTROYS RO, 
ines : RELEELERLE RRL E SLE REE RRS ERLE KEL KER ESE ELA KER EERE ELLE LEER EE KEELE REEL ELE 
ee 
10284 001 IF OF MM 
10285 “IFF 
10286 Ovi 122" BINASB: 
10287 O4lle2’ 010501 BINASC: MOV RS,R1 
10288 0411204’ 062501 ADD (R5)+,R1 sCALCULATE RESULT ADR 
10289 Ou11e6" 112711 000030 BINAS1: MOVB #30, (R1) 
10290 041132’ 000261 SEC 
10291 041134" 006100 LOAL: ROL RO CONVERT TO ASCII 
10292 041136’ 106121 ROLB  (R1)+ 
10293 1140" 111102 MOVB = (RIL), Re 
10294 041142" 112711 00206 MOVB #206; (R1) 
10295 041146" 006300 LDA2: ASL RO 
10296 041150’ 001403 BEG LDA 
10297 041152" 106111 ROLB (RI) 
inoss puriee’ O ey 

Des ’ 

1500 atte 110211 LOA3:  MOVB Re (RL) : 
1036i 041162’ 000205 RTS RS RETURN TO CALLING FGM 
10303 BINASB8: MOV R3,-(SP) _ SAVE R3 

10304 MOV #8, .R3 - iSET DIGIT CTR TO 8 
10306 BR Bastra GO CALC RESULT ADDR 
10307 BINAS1: MOV R3,-(SP) SAVE R3 

10308 V #6;R3 SET DIGIT CTR TO 6 
10309 CLR Re 

10316 BR BASCVT GO CONVERT 

10312 BINASC: MOV R3, -(SP) SAVE R3 


ne oe ee. + a - - 

















MAINDEC-11-DTMGA-C MPG / USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE SS-i SEQ 0217 
DTNGAC.P11 BINARY TO ASCII SUBROUTINE 


10313 MOV #6,R3 ;SET DIGIT CNTR TO 6 
10314 CLR Re 

10315 BASCRA: MOV RS,R1 

10316 ADD (RS) +, RL ;CALCULATE RESULT ADDRESS 


pate BASCVT: FOO ORT Bbep) ;SAVE RESULT END PTR 
10320 BASLP1: "0 Roa ‘eran NARY NBR 
{feel Fit, #00. R4 ” Moca Asti . 
10323 MOVB RY, -(R1) STORE AS RESULT 


ite BASLPe: ee a3, R4 sMOVE NEXT 3 BITS 
1 ROR RO INTO POSITION 
10328 BNE BASLP2 

10329 DEC R3 ; COUNT DIGITS 
10330 BNE BASLP1 “REPEAT FOR ALL 
10331 MOV (SP)+,R4 *RESTORE RY 

10332 MOV (SP)+,R1 "RESTORE RESULT PTR 
10333 MOV (SP)+;R3 RESTORE R3 

10334 * RETURN 

10335 


Pll BINARY” O ASCII DECIMAL SUBROUTI 
-SBTTL BINARY TO ASCII DECIMAL SUBROUTINE 
5 E39 9 0 9 a a 
THIS SUBROUTINE CONVERTS ONE 16 BIT BINARY 
NUMBER INTO ONE TO FIVE ASCII DIGITS 
REPRESENTING THE DECIMAL VALUE OF THE NUMBE 


CALLING SEQUENCE Beep | Reet? BTASLS (BTASLZ) 


er C-11-DTMGA-C 7 USER PROGRAM SHARED CODE MACY11 27(732) 24-SEP-76 13:54 PAGE S6 SEO 0218 


ENTRY RO CONTAINS A 16 BIT UNSI re 


: She PRR BE He hace 


6 BYTES & DIGITS ARE 
RIGHT TUSTIFT ED. 
praalg S ENTRY FOR LEADING BLANKS 
TASLZ IS ENTRY FOR LEADING ZEROES 
EXIT Ri POINTS AT LAST BYTE OF RESULT 
DESTROYS RO,R1,Re 
Tete eeCEEELOLECLOCCieieiiiiiiiiigiiitigercerecertiirirririiitttttt titty 


BTASLB: 


BTASLZ: 
LBIASD: 


;STORE SPACE AS FILL 


;STORE ZERO AS FILL 
;SAVE R3 & RY 


ADR OF RESULT AREA 
CULATE RESULT ADDR. 
ca ZERO FLAG 
TS NBR ZERO? 
uN ws de FLAG 
POINTER 


pesscess 
RAPOF HE 
e: 283 


am 
282 


mT 
_ 
s 
_" 
w 
~ 
—2@mit 


n= 
3 
< 
3 
= 


wr 


ee 


pb bb pe 
= 


SROs. 


3 
2 


Soo ueRRanRenS 
ai 


e 


;NUMBER MINUS 
;DIGIT DONE IF NEG 
; INCREMENT + el DIGIT 


BRSRLBRESSE 
: 


2283 


os 
04 
04 
04 
OY 
oY 
O4 
04 
os 
Os 
04 
04 
oH 
04 
04 
04 
O4 
04 
04 
04 
04 
Os 
04 
04 


Dh hh ee 


BS 
o 












Pil 
10383 041272" 
10394 O41E7¥. 
Laas GulSee" 
1 1304" 
10398 041308’ 
10399 

ipa mute 
ioe 41319" 
10403 041316’ 
10404 041320" 
1040S 041322" 


rae pit. ef MPG / USER PROGRAM SHARED CODE 
DTNGAC. BINARY TO ASCII DECIMAL SUBROUTINE 


000060 


LBOTZF: TST 
BEQ 
MOVB 

LBDEXT: MOV 
MOV 
RTS 


LDECTB: .WORD 
- WORD 
. WORD 

WORD 






MACY11 27(732) 24-SEP-76 13:54 PAGE S6-1 





TEST THE ZERO FLAG 
IF NOT SET, EXIT 
‘ELSE INSERT A ZERO 
"RESTORE R3 8 RY 


; RETURN 
;DECIMAL TO BINARY TABLE 





ee 
DTNGAC.P 


2 
38 


ob be pe pe po pe 
DONT £wrw- One 


Pech epee se 


= 


[=] 
io 
3 
ps 


as 


7 
ao 
— 


Se 


"4 


a 


MPG / USER PROGRAM SHARED CODE 
RANDOM NUMBER GENERATOR ROUTINE 





MACY11 27(732) @4-SEP-76 13:54 PAGE 57 






-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


Cea iis ce at RIT a oe eng RET 
RS,LRANDM 


* ISR 
x RETURN 
iy 


5 RERRLALELERAEL ALLL ALAR ERE REL EEA ELA LE LE LAE LEER EERELAEE LLL L EERE REELEE 


LRANDM: iy 


15: 


LHINUM: 
LLONUM: 





- WORD 
. WORD 


R3,-(SP) 
L 


L_THE ROUTINE 
Re URN aT THE RANDOM 
; NUMBER tee BE IN 


tSET RO WITH LOW 
SET Bi RI Puthic HIGH 


i TERO R 

SHIFT RO SEFT_AND 
ROTATE CARRY INTO R1 AND 

;ROTATE NTO Re 


Patt tae 


sERP OSE Coe TO MAKE X 129 


; PROPOGA R 
;ADD LOW CONSTANT 
;PROPOGATE CARRY 
;PROPOGATE CARRY 
ADD HIGH CONSTANT 


;ADD HIGHEST CONST 


PR 

SAVE RO 

SAVE Ri 

RESTORE R3 
TURN 





REPRIME RO WITH HIGHEST DIGIT 
TE CARRY 





MAI 
OT 


10453 


10487 
10458 
10459 
10460 
10461 
10462 
10463 
1044 
10465 


10466 


C-11-DTMGA-C 


SEE 


eeeseeaee 


ReIRE 


o 


ne Ben Pe Bae bt Jno bas fa bee bs be bee fe Dt ee fe ee fe et et han fe he ft fae ee Bt fe Pe ee pe 
s-7w = 


PPPPSPPABPAPLAPAPPPIAPPPPLAPSIPPPPPIPPIPP 
WETESINA Se RS PRS eS 


F: 
8 
£ 


4 
Finis 


MPG 7 USER PROGRAM SHARED CODE 


MACY11 27(732) 


DATA BUFFERS, COMMON WORDS, & PATTERN ADDRESES TABLE 


ae 






> 
++ 
000000 





CBUF OO: 


CBUFOL: 


CBUF C2: 


CBUFO3: 


CBUFO4: 


CBUFOS: 


CBUF OB: 


CBUFO7: 


CBUFOS: 


CBUFOS: 


CBUF 10: 


CBUF 11: 


CBUF le: 


CBUF 13: 


CBUF 14: 


CBUF 1S: 


EVEN 


- WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


- WORD 


-SBTTL DATA BUFFERS, COMMON WORDS, & PATTERN ADDRESES TABLE 


0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,9,0 
0,0,0,0,0,0,0,0 
0,0,C,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0 
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;COMMON DATA BUFFERS 


Be ee ek ee etn ee a ern Se ere ee cee 





ae e+ ee ere ee eee eee: 





MAINDEC-11-OTNGA-C 
DTMGAC. P11 





SATE ASRGRBIOR 


2 
8 


RAR ARRAS SSS 


RRRRRRR 


0 22 bn pe ee 
Munt wre-O 


R PROGRAM SHARED C 
» COMMON WORDS, 8 PATTERN 


5 SSSS5S555555 SS55555555 
5 


a a oF + + . 
HH eee 
= vie 


he Baie 


— . . o 
p— beg my 


ge 


MACY11 
ADDRESES TABLE 
0 
1] 
0 
0 
0 
a] 
0 
0 
0 
0 


;CODE BEYOND THIS POINT IS NOT REQUIRED TO BE IN 
SHARED PAGE AREA. 


; THE 


TLE MAINDEC-11-DTMGA-C 
MAINDEC-11-DTMMA-B 


= 


ge MIMIC 


TETLE MAINXEC-11-DTMGA-C 
at uae MAINXEC-11-DTMMA-B 





27(732) 24-SEP-76 13:54 PAGE SB8-! 


;COMMON DATA WORD STORAGE 


;PATTERN ADDRESS TABLE 


MPG CONTROL ROUTINE 
MPG CONTROL ROUTINE 


MPG CONTROL ROUTINE 
MPG CONTROL ROUTINE 











MAINDEC-11-DTNGA-C = MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 59 SEG 0223 
DOTNGAC.P1i DECIMAL OR OCTAL TO BINARY SUBROUTINE 


rat -SBTTL DECIMAL OR OCTAL TO BINARY SUBROUTINE 


gan 


halclalabailelaieiaieleleileleleiaiaieieleelelsisialeleileieiaieleieeleiaisielelelleleisisieleleileldiaieleleleiieleleieielee 
THIS SUBROUTINE CONVERTS FROM 1 TO & PACKED BCD DIGITS (3 
BYTES), THAT REPRESENT OCTAL OR yee Sa NUMBERS, INTO ONE 
16 BIT'BINARY NUMBER. ANY NUMBER L 
ee, 53S WILL CAUSE AN ERROR EXIT. 


CALLING SEQUENCE JSR RS, DECBIN (OCTBIN) 
.WORD ERRTN-. 


ENTRY RO CONTAINS ADDRESS OF DECIMAL NBR (FIRST BTYE) 
ERRTN IS THE ERROR RETURN ADDRESS TAG 


EXIT RO CONTAINS RESULT 
DESTROYS Re 
5 SE AE A GE gE SE A EEE SE EE A a SE ER SE ea HE EEE EEE EEE 


We ee Cees ee Sees wes eset es es eewse Oe ee ee ee 





pees Ri eeceomnns 
& 





116’ DECBIN: MOV PC, R2 ;SET POINTER R2 
120° 177170 ADD sLDECTB-. ,R2 *TO DECIMAL TABLE 
14’ MOV RI, -(SP) SAVE R 
1 , CLR Ri >CLEAR OCTAL FLAG 
1 , BR LTBSAV GO SAVE REGS 
1 = OCTBIN: MOV PC Re 3 SET 
1 , 000172 ADD sLOCTTB-. ,Re -TO OCTAL TABLE 
1 , MOV RI,-(SP) :SAVE R1 
1 , 000001 MOV #1°R1 SET OCTAL FLAG 
1 , LTBSAV: MOV R3,-(SP) 
1 , MOV RY) -(SP) ;SAVE HOLY REGISTERS 
1 y MOV RS, -(SP) 
1 , CLR R3 RESULT 
1 , 000006 MOV 86, RY Up DIGIT | 
i | , LTBINO: (RO) ,RS hate 
1 ; RS Bt T ByeiT. oy CETTE 
1 iJ 
ipeea ROR ORE | 
10560 , BR LTBIN2 :GO PROCESS DIGIT 
1 ¥ LTBINI: MOVB  (RO)+.RS GET INPUT BYTE AGAIN 
1 , 177760 LTBIN2: Bic #1 VRS *RESET ANY OTHER BITS 
1 , ST Ri : IF OCTAL FLAG 
10564 : - BEQ TBFD :NOT SET salt es 
i ibe ’ _ & o L ERROR F Pe 
1 ¥ 000011 CHPBOséRRS« 89. “CHECK IF DECIMAL NBR 
r 5222" BEQ L sERROR F TRUE 
1 24 000017 LTBFO: CMPB &17.RS : Ss? 
1 5230)" BEQ LTBINY “TRY NEXT DIGIT 
1 5330" STB RS *ALL S$? 
1 D4 oo34” BEQ LTBINY TRY NEXT DIGIT 
10573 O42226’ 061203 LTBIN3: ADD (R2),R3 "ADD TABLE VALUE TO RESULT 
| 








MAINDEC-11 CONTROL ROUTINE MACYL1 27(732) 24-SEP-76 13:54 PAGE S9-1 SEQ 0224 
DTNGAC.P1l OCTAL TO BINARY SUBROUTINE 
10574 Bcs LTBERR ‘ERROR IF CARRY SET 
ier Ft Perna ;REPEAT UNTIL DIGIT = 0 
10577 LTBIN4Y: TST (R2)+ i BUN TABLE PO POINTER 
10978 DEC RY CR DIGIT CN 
1 BEQ LTBINS DONE 6 DIGITS? (N, Y-LTBINS) 
19580 IT #1,R4 END DIGIT OF BYTE NEXT? 
1 LTBINI :N.Y-LTBINI 
10582 BR LTBINO :0 ist DIGIT OF ° TE 
1058: LTBINS: MOVB -(RO).RY :GET WITH LAST DIGIT 
10Se4 BIC #177760, R4 s ISOLATE LAST DI 
1 BNE LTBOUT WAS IT ZERO? (Y,N-LTBOUT) 
1 MOV R3,R4 HOVE RESULT TO 'A WORK RE 
1 INC RY + RESULT 
BCC LTBOUT ;ERROR IF CARRY GETS SET 
LTBERR: MOV (SP)+,.R5 iREST RS 
0590 ADD (RS) RS CULATE ERR RET ADR 
BR LgT x oy TO Rive eS EXIT 
LTBOUT: MOV 0 RETURN REG 
MOV (SP)+,RS 
TST (RS)+ snes Tone eR RET ADR 
LBTEX: MOV (SP)+,R4 ‘RESTORE HOLY REGISTERS 
MOV (5P)+°R3 
MOV (SP)+'RI 
3 RTS RS sRETURN TO CALLING PGM 
0500 LOCTTB: .WORD 199000 sOCTAL TO BINARY TABLE 
ee ey . 
“WORD 100 
AE5Y “WORD 10 
0605 .WORD 1 
= ae 
“SBTTL ASCII OCTAL TO BINARY SUBROUTINE 


fie lahadeheiadehhehiehebehaleinbhhahailehiniahciniaiaehciniaiciininiainiaiaiaiadeihniainiaiaininiaiaiaiaiaiaie 
0612 THI TS FROM 1 T0 ASCII 

tei3 bgt 

0615 NUMBERS TER Foon Rupa Grier OR NOW-RURERIC 

big CHARACTERS Lt RiLE CAUSE AN ERROR 

0618 CALLING SEQUENCE JSR RS, ASOCBN 

0619 -WORD ERRTN-. 


ENTRY RO CONTAINS ADDRESS OF LAST DIGIT 
R1 CONTAINS A_ COUNT OF THE NUMBER OF DIGITS 
ERRTN IS THE ERROR RETURN ADDRESS TAG 


EXIT RO CONTAINS LSB OF RESULT 
Re CONTAINS MSB OF RESULT 


EERE SSLAAA RARER EE SEERA A RRS ERAE ER RERARERRA ARE RERER ERE RAR EREREEEEEE 


Bs B= hs Be = be Bs Bee hn Ge es en Be bs bh hs Be fe Bm bn bs fe ft 88 bee pee fee Fee fee fet fee fas bm f= fo 6 


BERRRERER 


ne ee ee es ee Cee eee. 





ee eee ee 


38 
is 
pA 


l 


Seong Eee 


0-2 b-< b= 0-— bb 6 —= p= b= 6 = Bs B= pe 


PR 
EGGHS 


MPG CONTROL ROUTINE 


1-DTNGA-C 
DECIMAL OR OCTAL TO BINARY SUBROUTINE 


ASOCBN: MOV 
MOV 


LASOB1: CMPB 


LASOBe: MOV 


LASOB3: CMPB 


LASOBY: 


LASHFT: 
LASHF 1: 





MACY11 27732) 





R3,-(SP) 
RY, -(SP) 
Y #8. 


BR 


be Cente) SU oe) 


24-SEP-76 13:54 PAGE S9-e 


;SAVE R3 AND R4 


;HOW MANY DIGITS? 
;BR IF 8 OR LESS D 
;CK_FOR & BYPASS L 
;SET POINTER R3 


; NUE CHECK 
“COMPUTE # OF FILL DIGITS + 1 


;PUT DATA ADR IN WORK REG 
LEAR HIGH ORDER BIT REG 
LESS ASCII 0 


ee 27 
Y: 
coed 
—- 


m 
a 
FS 
Sh 
2 
oes 


Bore 
att 
= 
2 
oe = 

B2 


eens 
=) 

he 
ee? 

a 

Fo: 
oOQ- 
3 
Oo 

ee 

0 
wo 


a 

2982 

ZnS 
g 


;EXIT 


;CALCULATE ERROR RETN 
;G0 TO SUBR EXIT 


NT 
IT OUT OF OCTAL DIGIT 
T INTO RESULT REGS 











ea 
DTNGAC.P 


10682 


MPG CONTROL ROUTINE 
ASCII TO PACKED DECIMAL SUBROUTINE 


: 
S 


ae 


cE REE & 


: 


¢, 


si 


ba 


: 


8 
x 


=: 


2 


oO 


3 


eS 


ba 
—-Or 
fee Pat as 


Dae ton 


& 
ee 
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.SBTTL ASCII TO PACKED DECIMAL SUBROUTINE 
haineleieiailelebaiaieleieisieleieiaieeleieiaiieiaiseieieiseleiaisieleieisileleisiseleiaisileleidiieieisiieieislaicielel 


THIS SUBROUTINE tenes oe 1 TO 6 ASCII 


: OR NON-NUMERIC CHARACTERS WILL CAUSE AN ERROR EXIT. 
CALLING SEQUENCE JSR RS,ASDECO (ASDEC1) 
; .WORD ERATN-. 
ENTRY RO CONTAINS ADDRESS OF LAST DIGIT 
; 1 CONTAINS A COUNT OF THE NUMBER OF DIGITS. 


SEO a THe FOBT Oot ie 


ASDEC1 FILLS LEADING DIGITS WITH ONES 


EXIT pec ONTAINS PACKED NUMBER (3 BYTES) 
R INTS TO DECBUF 


DESTROYS R1,Re 
HTTPTTTTTTT TTT TT TTT TTT tte 


ASDECI: HOV 8177777 »R2 ;SET UP FILL CHAR OF ALL ONES 
ASDECO: CLR Re ;SET UP FILL CHAR OF 0’S 
LASDEC: MOV R3, -(SP) 
MOV RY, - (SP) ;SAVE HOLY REGISTERS 
CMP Rl’ 8% 
BLE LASCNT sCONTINUE IF 6 OR LESS DIGITS 
MOV RO,R3 CK FOR & SS LEADING 0’S 
SUB R1,R3 SET POINT 
TO FIRST DIGI 
LASLPO: CMPB (R3)+, #60 ‘IS ITA 
pie (Laer 
1 *1S NE GIT 
CHP Rl, #6 : THE FIRST OF fy As 
LASCNT: Rov a pe ee ee 
LASLP1 COPE PRS ioe i ae i 
Ho LiEAR Te ERROR EATT 
BHI LASERR ; AKE EX! 
MOVB (RO), -(SP) : ABSORB THE brGIT 
DEC RO POINT TO NX 
¢ Ri ‘IF MORE oferT TO GO 
BNE LASLP1 GO GET THEM 



















SEG 0227 















MAINDEC-11-DTNGA-C MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 60-1 
DTNGAC.P11 ASCII TO PACKED DECIMAL SUBROUTINE 





10738 o4e444" 005704 TST RY sNEED FILL CHAR’S? 
10739 O4%e446’ 001403 BEQ LASLP3 
10740 O424S50" LASLP2: MOV R2,-(SP) Ct ORE A FILL CHAR 
17a ONetee DEC R4 *DECR FILL CHAR CNT 
i ’ 001 BNE LASLP2 ‘DONE ALL? (Y,N-LASLP2) 
10743 * 004767 OO004E LASLP3: JSR PC, LASPAK PACK IST THO. DIGITS 
1 * 910401 0 MOV 4'R1 “SAVE T 
i * 004767 000040 JSR PC, LASPAK pr: NXT 2 DicITs 
eae eee BOS 000032 JSR PC’ LASPAK PACK LAST 2 DIGITS 

042476’ 010700 MOV PC’ RO *SET UP ADR OF DECBUF 
1 042500" 000065 spECBLUF +2- »RO 
1 eSO4? 11 MOVB = RY, ( sSTORE 3 BYTES IN 
10751 O4e506" 11 MOVB Re, -( RO) : DECBUF 
1 04251 140 MOVB  R1.-(RO) 
1 12’ TST (RS)+ ;BYPASS ERR RET ADR 
1 14” Ol LASEX: MOV (SP)+,R4 RESTORE HOLY REGISTERS 
iors als: Bits m een 
1 , RTS RS ;RETURN TO CALLING PGM 
10757 O4e2S2e” 010306 LASERR: MOV R3, SP “RESTORE STACK PNTR 
10758 pigset 061 LASERI: ADD (RS), RS *CALCULATE ERROR RETURN 
10759 , BR LASEX -GO TO S/R EXIT 
eee 
1 ’ 01 LASPAK: MOV (SP)+,RO SAVE RET ADR 
1 Ores paseo» Ete MOVB  (5P)+'R3 3 BYTE WITH LEFT FOUR BITS 
10764 , oe703 177760 BIC #177760, R3 AR ANY OTHER BITS 
10765 ’ 1061 ROLB sR HEFT THEM (eer FOUR BITS 
1 * 106103 ROLB =s« R33 
loves paseue’ tpeteS ROB ORS 

WES? 
eS Siseds. ear MOV (SP)+, R4 GET BYTE WITH RIGHT FOUR BITS 
10770 042552" 042704 177760 BIC #177760, R4 “CLEAR ANY OTHER BITS 
10771 042556’ ae BIS R3,R4 :MERGE 2 DIGITS INTO 1 BYTE 
10772 (O4e560° 010007 MOV RO; PC ‘EXIT IN-LINE 
ipy7a 
10775 O42562’ 000001 -BLKB 
10776 42563’ 000003 DECBUF: :BLKB 


oo ce en ee nee. 0 ts ore Onn ene ene 





ae ei we 


Pil 


1os78 


SR EEESEERRERER : 


i) 


Sega URRERRERT] Giudaaiadaas 


1 
Wlectsefectestss 
et et er at 
WM£WwMHO 


SB 
N 
2 
3 


eee 

Sitchoia 
ese 

—O .00No" 

ee 

ie 

= 

<£ 


bh ee 
- 
9 ee 


yg 
| 
: 
| 


VALID DEVICES TABLE 


MPG CONTROL ROUTINE 


litte hh te ee ie te a a eee ee ee eae eee 


MACY11 27(732) 24-SEP-76 13:54 PAGE 61 


-SBTTL VALID DEVICES TABLE 


THE OMe TIRE HOUSEKEEPING RoUY ine. "IPs FILENAME 
THE MPG MEDIUM IS “TVDA?? 
VALID DEVICE MODEL NAME TABLE 
6 BYTE ENTRY FORMAT: 
BYTES O THRU 3 = 4 CHAR ASCII DEV NAME 
BYTE 4 = FLAG BYTE 


BIT 0 = 1 = VALID LIST DEV 
BIT 1 = 1 = VALID SAVE DEV 
BIT 2 = 1 = VALID FETCH DEV 
BIT 3 = 1 = PERM SAV/FTH DE 
BIT 4 = DEVICE I.D. BITS: 
8 S = DISTINGUISH BETWEEN DIFFERENT 
& & = MODEL NAMES AND ALSO EN 
& 7 = DEVICES USING SAME DE T. 
BYTE S = POINTER INTO THE DEVICE 
ROUTINE I.D. CODE TBL FOR Xx 
(TXXANN.MPG) OR, IF ODD, THE 
1.0. CODE FOR ’NONE’, ’KYBD’, 
*KBOO’, OR ’LOAD’ 
NOTE: BITS 1 & 2 OF BYTE 4 WILL 
BE RESET BY MPG’S 1 TIME HSKP 
FOR ALL DEVICES EXCEPT THE 
LOAD DEV & PAPER TAPE 
+E OF MIMIC 
: :WORD O sDUMMY ALLOCATIONS USED TO 
: «WORD 0 ‘PROPERLY ALIGN LABELS IN 
‘THIS AREA. 
: BLKW 3 
: .BLKW 3 
BLKW : 
-BLKW 
= VOFLS2+512. ;ALLOW FOR UP TO Sl2 BYTE TABLE 
;MPG WILL SET THE USER PROGRAM AREA ADDRESS 
ne *TO THE END OF THE TABLE THAT WAS READ IN. 
: .WORD CTBEND-. ;NUMBER OF BYTES IN THIS FILE 
.WORD ORIDCD-. ‘RELATIVE ADR OF 1.0. TABLE 


NM: 
: .ASCII /NONE/<377><001.> 


SEG Oe28 








CKBDID: 23 /KYBD/<377><003. 
at /KB00/<377> «003. 
er ire 5 eee 


7TC117<006>< 
/TUS6/<026><000. 
/RK11/<006><002. 
/RK 


CLDID: 


RRR 

E+E 

mo 
COU 


D> DDD D3 
w w w 
Deed Ee 


Oh 4 4 tO 00 4 0 
ss 
“ 
~ 
w 
n~ 


WOOO © =Moo 


117<Of + 


444 0 4 40-4 4 00 4 ee 
AN 
= 
== 
me 4 
nwN 
am 
ww 
an 


ROR RRRRRGS 


10. 

‘Ole. 

14: 

14. 

eee ><Ole: 
>< O16. 

<O16. 

18: 


. . . 6 
D 
RRBRR 
Oh hh Oh Eh et 0 0 0 0 

aN 

g 

-_ 

~ 

a 

v 

“a 


: 


/ 
ita eie ; TABLE TERMINATOR 


;VALID DEV ROUTINE I.D. TABLE 


eS sincearieaiaretaiiacentannmstiianteeteesh 


ye Be et be an Be ft Jee fae fem De Bee ht be Bee fen bs bao bat hme hn pene hoe fee Gs fn pos ft fno he Pe Pw pmo fed fn fam fat Bene FP Gans es fis Ps Ps Fo Pe Bt his Pe Be Pe Bs Po Pe 


DRIDCD: /TC/ ;TC11/TU 
et TR ERKLL Rk 
ay 
i] 
;0J11 
’ 
ptt 
30011 
sPC11/ 
;RPO4/ 





MAINDEC-11-DTMGA-C = MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 6i-1 SEG D229 
DTNGAC.P11 VALID DEVICES TABLE 
| 








MAINDEC-11-DTNGA-C 
DTMGAC 


10890 


MPG CONTROL ROUTINE 
VALID DEVICES TABLE 


AS 


DDD 
Wun 


RR 


DD 
ww 
oO 


MACYL1 27(732) 


D 
w 
ONNNND 


RARRAR eiele) 
4 4 0 te ee 





I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
CI 
Cc 


24-SEP-76 13:54 PAGE 61-2 


;0C11 

’ 
sCRL1/CM11 
;CD11 

;KWl 

; TMO2/TUL6 
;RX11/RX01 
;DU11 
;RKO6 
>RSO3/RSO4 
;RLO1/RLO2 








Mls St Halle MPG CONTROL ROUTINE MACY11 27(732) 24-SEP-76 13:54 PAGE 62 SEO 0231 
D MPG CONTROL ROUTINE ONE TIME HOUSEKEEPING 


-SBTTL MPG CONTROL ROUTINE ONE TIME HOUSEKEEPING 
ipa haialaloeleleiaioiaisieieleieiaieisieileleleieisieleieieieieloleleisisioleleleleieisieieisieleieleieidisisileleleieisisiseieleioiela 
1091 THIS CODING WILL BE EXECUTED ONCE WHEN 


10914 ; MPG 1S FIRST LOADED. IT WILL BE DESTROYED 
10915 ; en one FIRST USER PROGRAM IS ENTERED OR 


10310 


wr 


PUUUTTTTTTT TTT TTT TTT TTT TTT TT TTT TTT Terr Tree TT Terr TT Terr Terre rr rTr tt ere 


BBB 


a oe 
woono 


5RO CONTAINS THE ADDRESS OF Te END OF MEMORY AS 
;COMPUTED BY THE EXEC. (ALWAYS < WORD 

Re CONTAINS THE POSITION ADJUST FACTOR FOR THE 
sEXEC’S GLOBAL TABLE. IT WILL BE O0’S ON THE 
;NON-MEM MGMNT VERSION. 


;STORE MEM END ADR & HSKP INTERRUPT VECTORS 


;STORE END OF an MEMORY ADR 
:GET VECTOR’S START ADR 
:SET UP .+2 ADR 


;STORE .+2 ADR 

STORE “HALT” INST CODE 

SINCR .+2 ADR 

; JUST 00 774 & 776? 
N-10$ 


& STORE EXEC INTERFACE ADR’S 

PC, RO ;SET UP LOC O MPG ADR 
#CLOCZ-. ,RO 

Re, RO : SUB NPG” S POSITION ADJ FACTOR 


na GET 8 Up °GLOBAL TRL END -ADR 


;GET RELATIVE ADR 
;MAKE IT ABSOLUTE 
isl a ABS ADR IN EXEC 
;DONE ALL? (Y,N-CREL1) 
AND ISSUE MPG’S TITLE MSG 
;SET UP RESTART POINT # 1 ADR 
;CONVERT IT TO ASCII & PUT IN MSG 
;SET UP RESTART # 2 ADR 
;CONVERT IT ALSO 


;GET MPG’S BASE ADR 


Ee 


BS 


— 


An 


8 
3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


8 
— 
N 


ae 


ER RREGHUARGHNOA IS EFT Td ee aaa can aRR SEE MNI TERE 












ATE PE 1-DTNGA-C 








° 7’ 134072 
10955 pva7OG? E2700 129072 
10967 043716’ polEls 
1038 : 142300 
pert 043726’ 001074 
10a05 
1 * 010703 
10aee eH 062703 O01066 
1s 043736’ 010700 - 
10978 OI 010701 
10379 043745" Obe001 
ita) Gis7eg" Sidra 
10982 001 
10983 
ipa 
ed 
10988 
10989 000 
10990 043754’ 010211 
ipese GSvER’ Satori 
ioese Disreo" Oolari 
10994 043762’ 010703 
1099S 043764’ 062703 Ii164222 
lose Gis: Dione Oe 
: , 010701 7380 
10333 GHD ero} 
11001 * 062700 OO0000E 
110s d 01 
lige GMGIG" Oee700 oom, 
11005 * Oe00g3 
Lio OMe: O07 
11008 O44036’ 010701 
11010 4 176000 
110s ° 
3101 ° oooo0& 
Lois Bates’ fenone 
11015 ’ 1371 
11016 000 
11017 ONNOee’ 010702 
LiGig GHibed Beers 169750 
1iS20 044074’ 010702 





MPG CONTROL ROUTINE 
TNGAC.P1il MPG CONTROL ROUTINE ONE TIME HOUSEKEEPING 


. IF NOF 


LRLLPe: 


LRLLP3: 


-ENDC 





83838 


MOV 


BS miseseseemscs 


= 
Ss 


MACY11 27(732) 
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#CLOCZ-. .RO 
RS, BINASC ;CONVERT IT TO ASCII & 
CBASAD-. ‘PUT IN THE MSG 

RS, CTYPE ISSUE MPG TITLE MSG 
CTITLE-. 


COMPILER TABLES FOR RELOCATION 


PC,R3 ; TABLE END ADDRESS 
#LMICRTE-. ,R3 : 


PC, RO TABLE START ADDRESS 
#LMCRTB-. ,RO TO RO 
PC,RI 
(RO)+,RL CALC TABLE ADDRESS 
(RO)+,R2 ;CALC SUBR ADDR 
a Ba R3 ET R3 = SE ADR 
spCeg 7” ie anes ind BBR 
#PECONS, R2 “ADD IN PAGE 6 CONSTANT 
PC,R3 
#LACRTE-. ,R3 -PUT R3 BACK AS IT WAS 
Re, (R1) ;UPDATE COMPILER TABLE 
RO;R3 
LRLLP1 sREPEAT UNTIL COMPLETE 
PC.R3 
#LCTBST+4-. ,R3 

RO 
aL CSTBL+4- ,RO . 
#CBUFOO-. , RI ; UPDATE BUFFER ADDRESSES 
RI, (RO) ‘UPDATE BUFFER ADDRESSES 
#6,RO IN DIRECT REFERENCE 
RI, (RO) SYMBOL TABLE 

RO 
#16. RL 
RLLP2 

R3 
#LXTBL+4-. ,R3 

Rl 
#LCOMO-. ,R1 
RI, (RO) ;UPDATE COMMON ADDRESSES 
#6; RO IN DIRECT REFERENCE 
2,RL “SYMBOL TABLE 
LRLLP3 
PC, Re 
aL CSB. »Re ; CALCULATE 
Re, LORTBS ‘DIR REF TBL START 





fae 
Bee 
tas 


SURI RRE ESS Be Noo Pn 


0 ae hea Bs Bae Fe bt eb te be Re Bt pe ee bh fe be ht bb bb ae ee be bt he hf Pe Ft be pe fs he be he he fh be fe be pe pee 
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044076" 062702 


164316 
163242 
164510 
163232 
164512 
163222 


164514 
163212 


175712 


173116 
172676 


173170 
172730 
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; CALCULATE 
; INDEXED INDIRECT TBL START 


;POSITION INDEPENDANT 


;CALC POS IND ADDR 
sCALC POS IND ADR 
sFOR CR LF 


SLORETH-POEBAUPECONG RO 


;CALC POS IND ADR FOR LINBUF 


 areaaaaiel ONS, LPNADR ;MAKE PRT PRG ; S/R POS IND 
aL VEHDR-PGEBA+PECONS, LVECLI ; sMAKE VERIFY S/R 
MSG-PGEBA+PECONS, sLVECLE iF 


:FOR NEN NHN VERSION 








SEQ 0233 






; CALCULATE 
‘INDEX REF TBL START 


; CALCULATE 
INDIRECT REF TBL START 





; CALCULATE 
SYMBOL TABLE END 
‘MAKE BIT PACK TABLE 


;CALC POS IND ADDR 
sFOR LINBUF 


;MAKE PRINT PROG # S/R 
;POSITION INDEPENDENT 


;MAKE_ VERIFY ROUTINE 
; POSITION INDEPENDANT 


FREE & MIDL ADR’S 








Tea 
DTNGAC .P 


= oo 
& t=} 


cree 


RRO 
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meneame i 
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poe 
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176266 
000004 
133836 


176236 


13S11e 


141654 


LDVDTB: MOV PC, RO ;GET ADR OF TABLE’S AREA 
ADD #VOFLSZ-. , RO 
MOV RO, 105 :STORE MEM ADR 
JSR RS; JLOADVR GO LOAD THE FILE 
10$:  .WORD XXXX : 
“WORD Sle. : MAX BYTE COUNT 
.WORD LDVDER-. : RR 
“WORD LDVDER-. ; ISU MEM ERR ADR 
-WORD  205-. NORMAL RET 
20S: MOV PC, RO GET ADR OF Ist. Rip IN TBL 
ADD #VDFLSZ-. ,RO 
D a (RO), RO ;COMPUTE END OF TBL ADR 
BIT #77,RO ;AT A 32 WORD BNDRY? 
BEQ ess -255 
ADD #100, RO ? BUMP MP UP PAST NXT BNDRY 
253: MOV #6,R1 *SET UP LOOP CNT 
35$: CLC *SHIFT ADR TO 32 WD BASE 
ROR RO 
C Ri 
36S 
.ENDC 
V RO, CPAREA ;STORE ADR AS START OF USR PROG AREA 
HKVDTB :GO TO TBL HOUSEKEEPING 
LDVDER: ISR RS, CTYPE ; ISSUE FILE LOAD ERROR MSG 
-WORD LDVDEN-. 
HALT sHALT FOR OPERATOR ACTION 
BR nc LOVOTB :GO TRY LOAD AGAIN 


HKVDTB: ae SCSAVEI, RO GET LOAD DEV’S MDL CODE 
MOV PC. RI GET ADR OF MDL NAME TBL 
ADD #CMDLNM+4-. RI 
10$: MOV (R1). Re GET MOL CODE FROM TBL 
BMI CKMFPS “END OF THE TBL? (N, Y-CKMFPS) 
BIC #360, Re jRESET DIFFERENTIATOR BITS 
CMP RO. Re HIS THE LOAD DEV’S ENTRY? 
BEQ in Y-20$ 
BIT #10, (RL) ; PERMANENT SAV/FTH DEV? 
BIC #6, (RL) “CLE VE & FETCH SUPPORT BITS 
20S: ADD #6/RI ‘POINT AT NXT TBL ENTR 
BR 10$ GO CK IT 
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MOV PC,RO 
ADD #M{DLAD-. ,RO 
NOV RO, LMIDL 

-IF NOF MIMIC 


;READ IN THE ’VALID DEVICES TABLE’ FILE 


; HOUSEKEEP SAVE/FETCH DEVICE BITS IN 
; THE VALID DEVICES TABLE 
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167540 


167520 


000010 


: MOV PC RO soa) UP AOR OF HOUSEKEEPING’S 

ace. Fo tke" cou canons ve sce 
: : 2 
my Ret Tee Ph Cu ens ere ern, 
MEPS RO ASR INST TO_CK CPU TYPE 
BIS SUSMTPS, CSYSFW 30 - SET FLG TO INDICATE CPU TYPE 
BR 308 :G0 TO LSI-11 CHE 
BR CKRSET :IT TRAPPED BYPASS LSI-11 TEST 
MOV PC, RO :GET AN_EVEN ADR 
INC RO ;MAKE IT O00 
TST (RO) ;D0 INST TO AN ODD ADR 
;LSI-11 WILL NOT TRAP 
BIS #LS1I11,CSYSFW 3;NO_ TRAP - LSI-11 FLAG 
BR CKRSTe ;BYPASS VEC RE' 
SET: CLR #102 ;RESET LSI-11 CLOCK VECTOR 
: MOV s12,0810 ;RESTORE RESERVED INST TRAP VECT 


: et 98177752 sACCESS THE HIT/HISS REG 
MOV 82 ,CTOADS 31TS THERE 1/0 VALUE 
BR CKYA7D tNOT - GO TO NEXT TEST 
MOV $2126, LDLLP1+2 “ADJ DELAY INST TIMING vaL Ue 
BIS SCACHE, CSYSFW *SET CACHE MEM PRESENT 

sTESTAIF TE Cru 11/70 BY ATTEMPTING TO SET 
22 BIT ADORE IN BIT IN MMMR3. 

: — , a8hMMRS | sTRY TO SET 22 BIT ADR BIT 

BIT ’ QUMMNRS sD10 BIT SET? 

BNE ; 

BR aa. TO NEXT TEST 

BI CSYSFW *SET THE CPU = 11/70 FLAG 
aeNMNR3 RESET 22 BIT ADR BIT 

fm 

MOV 86, 984 sRESTORE TRAP VECTOR 

IFT 
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;CHECK IF CPU NEEDS MFPS/MTPS INSTRUCTIONS AND 
IT IT DOES, CHECK IF IT IS AN LSI-I1. 


Fie F THE CPU HAS A CACHE MEMORY BY 
TING TO ACCESS THE HIT/MISS REGISTER. 


Test IF CPU_IS AN 11/40 BY ATTEMPTING TO ACCESS 
;MMMRS. IF WE CAN, ITS AN 1174S OR HIGHER. 


S 8CPUYO, CSYSFW sINITIALIZE TO AN 11/40 
JeMMMRS ‘TRY TO ACCESS MMMR3 





: BI 
TST 


SEO 0226 





TO THE 1/0 PAGE 


IT - RESET 11/740 FLG 
;SET UP ADR’S OF KERNEL MODE REGS 


;01 
sFILL INST 


;010 
FIL 
MEMORY MANAGEMENT REGISTERS AND 


CO3 
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#CPUY4G, CSYSFW 
»RO 
Ri 

ON, (R1)+ 


#KPARO 


&8KPDRO 


R3, (RO)+ 


;NOW RUNNING UNDER MEMORY MANAGEMENT 
; CHECK 
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INITMM: MOV 
MOV 
MOV 
CLR 
35S: MOV 
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DRT HLERRERS 


8 nd bd Od wm HO OG 
Sn Ream Deen Ree Rea Keath Rete Kets Kee Keen Reet Reet Keste Kook Kee Kee Kame Rom Koon Ram Keen Kam Kom Loom Ras ham Kame Lams ame, Karn Kean Reams Ran haan Ream Kae ham, ham Lam, ane, Kean, Dean, Loam, beam, uae, kane name eae, ae hae, hee om, ee ate hee eae 
GE ON Oh ad Od Od 9 0 OH Od OG Oh OE Oh hd Od ed hh hd hd a md dd hd Ed Gh Od gd Bd hd Od a ag a ED 


Stotntotataistatata 


MAINDEC-11-DTMGA-C 


DTNGAC.Pil 


2 BIT ADDRESSING 
BIT SET? 


AN 
HE 
F 


1 
MM 
THE 
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;SIZE MEMORY ABOVE THE 16K MEMORY BOUNDARY 


MMSZM: MOV 
50S: BIT 


605: CMP 
BEQ 
70$: TST 
ADD 
BOS: MOV 
DEC 
MOV 
CLR 


TH 
Uae 
8170000, d#KPARE 
80$ 


70$ 
#7600, d#KPARG 


( +H 
#40, d@KPARG 
anew CRMEND 


se oe 


UP ADR THAT 6 Th iar PAR 


6 
Rr Pes ROBRESS RG? petintiee 


N-60$ 
He 22 BIT MEMORY? 


‘CONTINUE MEM TEST 
sEND OF 18 BIT MEMORY? 


;TEST MEM LOCATION 
SORRENTO OF HEN 

G0 TEST NEXT Sc ADR 

STORE LAST K OF MEM AOR 


;RESTORE CPU ERROR TRAP VECT 
DISABLE MEM MGMNT 


;MEMORY MANAGEMENT IS NOW DISABLED 
; INITIALIZE SHARED PAGE PAR & POR VALUES 


IPGBYL: MOV PC.RI 
RODD ePcbbA-. JRL 
MOV 
ADD -., 
SUB R1,RO 
BIT #77,RO 
BEQ 82S 
ADD #100, RO 
B2S$: MOV 86, Re 
84$: ASR RO 
ASR Ri 
DEC Re 
BNE BYS 
MOV R1, SPPAR6 
DEC RO 
SWAB. SséRO 
BIS #6, RO 
MOV RO; SPPDR& 
; INITIALIZE TRAP VECTORS 
ITRPVC: MOV PC, RO 
ADD eTRP3Y-. ,RO 
my RS 
ADD iy . RO 
my Rea 
ADD BYAPIO-. ,RO 
MOV RO, 9810 
MOV PC 
ADD #TRPL14-. ,RO 
MOV RO, ae114 


ee ee ee 


;GET START ADR OF SHARED PAGE 
;GET ITS END ADR 

;GET Ls aee BN ETE pyres 

;END ON 


:N. Y-825 

:POINT IT PAST NXT BNDRY 

: CONVER AR TOA. 32 WD ADR 
*AND BYTE CNT TO A 32 WD 
BLK CNT 


: STORE PAGE PAR VALUE 
‘GET PLF BITS IN HIGH BYTE 
; SET 


IN ACF BITS 
;STORE SHARED PAGE PDR VALUE 


;GET TRAP INST ROUT ABS ADR 


iy Pe ee of Bole TR 


Para ADR OF ROUT FOR 
CT INST TRAP 
es ees PO" 


; STORE 


SEQ 0237 
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te Bloat ey Seat eet Fo 
11338 ee roy Ao. aaee0 tenet 
11308 001 ‘o Of MIMIC 
LISP sCHECK IF DEV ROUT IS INCLUDED 8 ADJUST MPG 
11309 CKYDVR: PC, RO ;SET UP MPG END ADR 
11310 ABD #MPGEND-. , RO 
11311 mh Noy = WhO, SAVE IT 
11313 nov #6,R1 -SET UP LOOP CNT 
11314 90S: cle - ‘EXTRACT HIGH 16 BITS OF THE ADR 
11316 DEC RI 
11317 BNE 30s 
11318 001 ENDC 
11319 MOV RO ¢ : SAVE PROG START ADR 
il CMP LIAIT+2, R3 iS A LINKED IN? 
11321 BLOS N-HSKEND 
11322 JSR NASC ‘ PLACE DVR ST ADR IN MSG 
11363 MOV Be : ;SET UP SLOT # 1 ADR 
11325 ADD #CRTBL-. RO 
| 11326 JSR RS, BINASC sPLACE SLOT # 1 ADR IN MSG 
| 11327 - WORD agsttin-. 
| 11328 002 “IF OF MM 
| 11329 MOV PLNGTH(R3) ,RO GET DEV ROUT SIZE 
11330 BIT a7? RO END ON A 32 WD BNDRY? 
| 11332 ADD #100, RO ON PAST NXT_BNDRY 
| 11333 100$: MOV #6, Ri UP LOOP CNT 
| 11334 10S$: ASR RO $ OF 32 WD BLKS 
| ie Be 
| 11337 NOV Ao eR TEL +34. sSTORE IN CNTRL ROUT TBL EXT 
11338 001 . ENDC 
11339 JSR RS, CTYPE ;TYPE THE “WRM™ MSG 
Eat WR ae 
| 11342 o02 w1F OF NM 
| 11343 BIT SUNINAP, CSYSFH ;USING THE UNIBUS MAP? 
| 11344 BNE 15 *N. Y=115$ 
! 11346 a. R PUBMAP(R3) “RESET ITS MAP INFO 
| 11347 115$: ADD 8PTLGTH+DEVIOB, R3 POINT AT DVR SSES 
|e a ae iSEP Ue TBE OR 
i 11350 CHKLOP: MOV (RO)+. Re” GET REL OR YIRT NPG POINT ADR 
| 11351 BEQ __HSKEND s END ? (N, Y-HSKEND) 
| 11382 o02 IF OF MM 
| 11353 ia BMI CHKVAD PAGE 6 ADR? (N, Y-CHKVAD) 
| 11322 Abpo” PC, Re ;MAKE IT ABS 
_ 11356 CHKBAS: SUB #CHKBAS-CLDBAS , Re ADJ FOR DIFF PC ADRS 
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000 
Ole74S oC0240 
Ole74S 000240 
900205 


062716 000010 
o0co00e 


001 


- CHKVAD: 


HSKEND: 


HSKTRP: 


CKRPLY: 


MOV R2, (R3)+ »STORE IT IN DVR 
BR CHKLOP :GO GET NXT ADR 


MOV #240, -(RS) ;SET CALLING JSR TO NOP’S 
MOV #240,-(RS) 


RTS RS ;EXIT IN-LINE 


;HOUSEKEEPING’S TRAP ROUTINE 


ADD #8. , (SP) ;BYPASS NEXT 4 WOS OF PROG 
RTI ;EXIT FROM THIS TRAP 


.IF OF MM 
;GET REPLY FOR HSKP MESSAGE AND CHECK IT. 
;Y, N, <CR>, & <LF> ARE ONLY VALID REPLIES. 


: ISR PC, CKRPLY S/R CALL 
: BR LABEL EXECUTED IF INVALID REPLY 
: BR LABEL EXECUTED IF A ’N’ REPLY 
‘DESTROYS RO,R1,R2 
JSR RS, ACTRD ; ISSUE KEYBOARD READ 
.WORD CCHDRD-. 
“WORD 30. 
JSR RS, CSCNSP ;SCAN READ DATA FOR THE REPLY 
BIT #CSCFND, R2 ‘ONLY <CR> OR <LF> ENTRY? 
BEQ 3N, Y-10$ 
CMPB —s-&"N, ACDSTAD 21§ REPLY AN °N’? 
BEQ 20S ?N.Y= 
gee bros ita 8" 
ADD #2, (SP) “BYPASS 2ND BR INST 
ADD 82) (SP) “BYPASS IST BR INST 
RTS PC sEXIT 
 ENDC 

: - WORD rate _  sGLOBAL ADDRESSES TABLE 
“WORD UFWTST 
“HoRD Br Ace 
“WORD  CSYSF 
-WORD — USRINT-CHBASE 
LIMIT :MPG’S START & END ADR’S 


COMPILER MACHINE CODE RELOCATION TABLE 
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043515 


042040 





LMCRTB: - WORD LRT1-LBA, LADDN-LBB 
“ORR LATER, 
WORD CRT 4-LBA’ LPRNG-L 
“WORD LRTS-LBA,LPRNO-LBB 
“WORD LRT6-LBA,L 
“WORD LRT?-LBA,LPRNB-LB 
“WORD LRTB-LBA,LPRNG-LBB 
"WORD LRT9-LBA’L’ 
.WORD  LRT1O-LBA, LPRND- 
- HORD RTL : - 
Wd LRT12-L8A, LFILR-LBB 
.WORD LRT13-LBA,LFILG-LBB 
“WORD Eatis-tee CEL 
“HORD tATe-tea' Le LG- 
WORD URT12-1 Ba, LEILV-LBB 
“HOED tRTIS-tBA’ CROT 
“WORD 20-LBA, LOLAY-LBB 
.WORD LR 61-1 BA, LPRNG-LBB 
“WORD LRT2&2-LBA;LFILP-L 
“WORD LRT23-LBA,LFILP-L8B 
WORD “LBA, L -LB8 
“WORD LRTe8-LBA,L BB 
“WORD  LRT29-LBA; CUPCR-LBB 
[WORD  LRT3O-LBA; CUPGEX-LBB 
LMCRTE: :WORD 0 sEND OF RELOCATION TABLE 
.NLIST BEX 
Te DF MM 
CTITLE: ASCII (015><O12>/DTMGA-C  M.P.G. = RST1: 7 
CTITLE: (ASCII <O15><O12>/DTMMA-B M.P.G. STI: / 
CHKRIA: rat /XXXXXX; RST2: 7 
CHKR2A: .ASCIT JXXXXXX/<015) (012) <015> 012) 
ROC I /MPG BASE ADDRESS = 
CBASAD: : AXXXXXX/ 
-IF OF MIMIC 
CURNSG: feel (O15) <012/00: “WRM / 
EBURBG; “ast OOOO”, THEN “FM"/ 
“IF NOF MIMIC 
LOVDEM: -ASCIZ /VLD DEV TBL LD ERR, PRESS “CONT” TO RETRY/ 
IF OF MM 
UBMPMG: .ASCII <015><012>’?USE UNIBUS MAP (Y/N) 7 ’ 
U22BAD: ASCII (015><O12>’?USE 22 BIT ADRS (Y/N) 7° 
“LIST BEX 
EVEN 
-IF DF MIMIC & MM 
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002 


00i 


960 
045212" 
000001 


ene ee ee ee 
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ALPTe= .-CLOCZ 

ALFCT2= Pie omects 

ALQUN@= 31.-ALFCTe 
- BLKW — 


.ENDC 
MPGEND= . 
. END 


SES D241 


SEO D242 


I03 
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O4Sele 


ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 0 


%, DTMGAC/NL: TOC/DOC=DTIGAC. Pil 
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SCAN O26406R 
SETDED= 000040 
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SRES  040776R 
STACK = 001200 
START QO00064R 
STKBIG O3S546R 
STONER= 100000 
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